J'essaye de créer une macro qui me permet d'ouvrir un fichier et de remplacer les . par des , pour que les valeurs soit reconnues numériquement, mais elle ne fonctionne pas sur toutes mes valeurs, voici mon code :
 
Je voudrais que dans chaque cellule : 2.76781 devienne : 2,76781 mais ma macro me revoie (une fois sur 10) : 276 781
J'ai remarqué que c'est le cas dès qu'il y a plus de 2 chiffres après le point !!!!???
 
 
Sub ouverture_fic_et_remplacement()
'
' ouverture_fic_et_remplacement Macro
' Macro enregistrée le 06/07/2006 par JAGWAR
'
 
'
    Workbooks.OpenText Filename:= _
        "C:\sed1501.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array( _
        1, 1), Array(2, 1))
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
End Sub

Tu peux tout faire d'un coup, sans macro, en changeant le type de séparateur dans les options de ton fichier.

sujet déjà traité plusieurs fois...
http://forum.hardware.fr/hardwaref [...] 3332-1.htm

OK merci beaucoup (j'avais fait une recherche mais celà n'avait rien donné ???)
c'est quel onglet pour les options ?