Bonjour,


Quelqu'un peux m'aider SVP pour savoir, Comment avec cette macro, enregistrer un fichier .txt (avec séparateur point virgule) en codage UTF-8??

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Sub Macro1()
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlCSV, local:=True
End Sub
Merci