Discussion :

[BastienO]

Bonjour à tous,

J'ai une macro qui importe un fichier .rpt (un fichier texte).
La 2ème étape de cette macro est de remplacer les "." par "," J'ai utilisé plusieurs méthode mais à chaque fois le résultat est le même...
Certaines cellules n'acceptent pas la virgule. (exemple: j'ai 1.234 après l’exécution de la macro j'ai 1234)
J'ai essayé de faire un remplacement par ";" et toutes les cellules remplacent bien le "." par ";".

Le problème est donc qu'avec ","

Je vous joins mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:C").Replace ".", ";", xlPart, xlByRows, False, , False, False

Si quelqu'un a déjà eu ce problème je suis preneur car je sèche complètement.
Merci à vous

Bastien

[Marc-L]

Bonjour, bonjour !

Il n'y a pas besoin de remplacer quoique ce soit si l'importation est correctement réalisée !    Donc importation à revoir …

Voir dans l'aide VBA interne la méthode  OpenText  par exemple …

Sinon comme décrit à plusieurs reprises sur ce forum il suffit de remplacer un point par un point, si, si ‼
VBA nativement en anglais reconnait donc uniquement le point comme séparateur décimal …

Voilà, voilà !

___________________________________________________________________________________________________________

Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[BastienO]

Autant pour moi je me suis trompé de ligne dans ma macro c'est bien remplacer "." par ","

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("A:C").Replace ".", ",", xlPart, xlByRows, False, , False, False

Mon fichier texte est importé en format 12.345 et je le veux en 12,345
Ce code marche mais pas sur toutes les cellules. Certaines passent de 12.345 à 12345.
Mon problème est là.

Merci

[BastienO]

Je me suis empressé de répondre avant de tester le remplacement "." par "." .

Effectivement la solution est bien là... une matinée pour ça

Merci Marc.

Bonne journée