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:
Sub Macro1()
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlCSV, local:=True
End Sub
Il faut installer la référence ADO (ActiveX Data Objects) dans ton module par Menu Outils, référence et éventuellement le classer (voir dans le classeur exemple).
Superbe ca fonctionne, je m'apercois que j'ai un autre souci dans mon tableau colonne prix, Le format utilisée est 0.00 (avec un point comme séparateur) et quand je retranscrit en txt utf-8, j'obtient 0,00 (avec une virgule comme séparateur).
Comment faire pour ne pas avoir le séparateur en virgule.
Modifie les paramètres Windows pour avoir un séparateur point : ADO n'étant pas purement Excel, il se base sans doute sur les paramètre systèmes et non sur les options excel.
Sinon à part convertir les nombre en texte, je ne vois pas trop...