Changer virgule en point virgule

[souhail72]

Bonjour

J’écris un fichier text avec une macro et à la sortie, j'ai une virgule au lieu du point virgule.

Help me please ...

FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:=xlCSV, local:=True

Merci @ vous

 

[souhail72]

Re : Changer virgule en point virgule

Re bonjour
Une ame charitable, je bloque . merci

 

[tinet]

Re : Changer virgule en point virgule

Bonjour,

Controle F
Puis Remplacer
Recherche: ,
Remplacer par: ;

 

[macadamx]

Re : Changer virgule en point virgule

sinon :

selection.Replace ".", ","

 

[macadamx]

Re : Changer virgule en point virgule

enfin tu séléctionnes tout ton texte et tu lances cette macro

sub replace()

selection.replace ",", ";"

end sub

Voilà ! Dis moi si c'est bon ^^

 

[macadamx]

Re : Changer virgule en point virgule

enfin tu séléctionnes tout ton texte et tu lances cette macro

sub replace()

selection.replace ",", ";"

end sub

Voilà ! Dis moi si c'est bon ^^

 

[souhail72]

Re : Changer virgule en point virgule

Désolé d'avoir posté un nouvel post, j'ai toujours le meme probleme ..

 

[souhail72]

Re : Changer virgule en point virgule

Bonjour
Solution trouvé, pour mettre le point virgule, il faudrait mettre cette ligne, ne pas enregistrer le classeur et le mettre a faux.

ActiveWorkbook.SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

merci à vous