VBA Fonction Print #

Question

Bonjour à tous,

J'ai créé une macro pour pouvoir déplacer le contenu de mon fichier Excel vers un fichier .txt. Ce déplacement je le fais via la fonction Print mais lorsque j'ouvre mon fichier txt, les caractères avec des accents comme à, é ,ô etc. sont remplacés par des points d'interrogations comme s'ils étaient considérés comme des caractères spéciaux.

Voici la partie en question où les caractères se changent :

Open sDos & ThisWorkbook.Worksheets("Macro").Range("B2") & "" & Ref & ".md" For Output As #NumFic

        Print #NumFic, BufferTexteComplet & BufferTableau & BufferImage 

Close #NumFic

Si quelqu'un avait déjà eu le coup et trouvé l'astuce, j'aimerais bien avoir un coup de main, svp.

Cordialement.

Answer 1

Bonjour,

Je viens de trouver mon erreur qui venait de mon fichier modèle qui était mal encoder, moi qui pensais avoir regarder l'encodage, je suis désole. Merci beaucoup encore pour l'aide.

Clement.

Answer 2

Bonjour,

Bizarre. En exécutant :

Open "D:\Users\dcola\Documents\TESTFILE.txt" For Output As #1 ' Open file for output.
Print #1, "âôë"
Close #1

J'obtiens :

Daniel