ouverture TXT pb . et ,

[RHODAN PERRY]

Bonjour à tous ,

je sais comment remplacer les points par des virgules après l'ouverture
d'un fichier TXT dasn XLS,
mais mon pb est que lorsque je le fais par le biai d'une macro, les points disparaissent certe, mais les virgules ne les remplacent pas, j'obtiens donc
des valeurs de l'ordre du million.

ex : valeur dans TXT = 20.123456
valeur dasn XLS = 20123456

j'utilise ce code :
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False


Merci de vous pencher sur mon cas (d'ailleur j'en aurai un autre si d'ici 10 minutes j'ai toujours pas trouvé de solution)

(précision ce code est dans un boucle FOR/NEXT car il a plusieurs fichiers TXT à ouvrir ).
EXCEL 2000 .
NIVEAU ; 2 semaines de 60h de VB (j'ai mal au yeux!!!)

 

[Popeye]

Bonjour

essai ca pour voir

Dim cellule As Range
For Each cellule In Selection
texte = cellule
Position = InStr(1, texte, ".", 1)
If Position <> 0 Then
Mid(texte, Position, 1) = ","
End If

ca remplace les . par des virgules dans ta selection
par contre ca peut etre plus long que la fonction replace

 

[Popeye]

oups j'ai pas tout mis ;o)

Dim cellule As Range
For Each cellule In Selection
texte = cellule
Position = InStr(1, texte, ".", 1)
If Position <> 0 Then
Mid(texte, Position, 1) = ","
End If

cellule = texte

Next

 

[RHODAN PERRY]

Merci , mais étant donnée que ma macro ouvre successivement de 1 à 30 fichier txt contenant chacun entre 1000 et 30000 valeurs, l'opération devient un peu longuette (du genre 5H23 avant que je craque pour un CTRL+ALT+SUPPR)

Je viens de regarder dans un ancien post et des nouvelles réponses m'ont apporté peut être une solution mais c'est pas sur

soit : paramètres régionaux , changer la virgule par un point...à voir
(merci Jean-Marie)