Discussion :

[Tyler Durden]

Bonjour,

Je lis un fichier texte dont les séparateurs sont des virgules (et que je souhaite remplacer par des point virgule).

Mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim a as string
dim b as string
 
Open monFichier.txt for input as #1
Do while not EOF(1)
input  #1,a
b = b + a
loop
c=replace(b,",",";")
close#1

Le problème c'est que ca ne marque que s'il y a un tréma (") au début et à la fin du fichier texte sinon j'ai le message suivant : "Incompatibilité de type" ...

Une solution pour ne pas être obligé de mettre des tréma au début et à la fin du fichier texte ? ...

merci d'avance

[jawed]

salut
si en se base que nous somme dans un forum excel vba tu peut simplement importé ton fichier texte en excel et faire un CTRL+H et remplacé "," par ";"
cordialement

[Tyler Durden]

En fait c'est une tache qui s'automatise sur plein de fichiers excel ... en générant des csv à partir d'une macro excel je me retrouve avec des csv qui ont une virgule à la place des points virgules, voila pourquoi je relance une deuxième macro pour remplacer les virgules par des points virgules ...