Discussion :

[MrBiduleX]

Bonjour à tous,

Je chercher comment modifier l'encodage d’un fichier texte.
Je m’explique, à l’aide d’une macro VBA Excel je crée un fichier texte quelconque et je viens écrire dedans.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
 
Chemin = "D:\"
Fichier = "Fichier.ext"
 
Open Chemin & Fichier For Output As #1
Print #1, "Divers…"
Close #1
 
End Sub

Mon problème est que ce fichier est encodé en ANSI alors que je le voudrais en UTF-8.
Comment faire ?

Merci pour votre aide…

[Invité]

http://www.developpez.net/forums/d13...o/#post7485065

[Marc-L]

Salut Robert !

C'est déjà résolu dans sa discussion d'origine dans le forum Excel via ADODB.Stream comme je l'avais indiqué …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Invité]

Bonjour Marc,
Ok c'est pas grave merci!

[MrBiduleX]

Bonjour à tous,

Effectivement cela marche avec ADODB.Stream mais j'ai un petit problème avec les sauts de ligne.

Lorsque je code :

Code :

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

1
2
adbStream.WrintText "bla bla"
adbStream.WrintText "bla bla"

Tout est à la suite dans la même ligne dans le fichier créé.
Si j'ajoute un

Code :

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

adbStream.WrintText chr$(10)

le saut est visible dans NOTEPAD++ mais pas avec BLOC-NOTE.

Le fichier que j'ai comme référence possède des sauts de ligne visibles par les 2 logiciel NOTEPAD++ et BLOC-NOTE.
Comment faire pour recréer ces sauts de ligne ?

Merci de votre aide.

[cerede2000]

Heu.....
Tu nous expliques pourquoi tu n'as pas gardé ton sujet d'origine !
http://www.developpez.net/forums/d15...-ansi-utf-8-a/

NdlM : fil supprimé. Contenu repris dans le commentaire #10.

Pour info soit dit en passant un retour à la ligne complet c'est Chr(13)&Chr(10) et MS à inclus une super constante qui s'appel vbNewLine ou encore vbCrLf....

[MrBiduleX]

Parce que le sujet n'était pas dans la bonne rubrique.

[cerede2000]

Ce n'était pas à ça prêt....
Bref tu as eu ta réponse pour le retour à la ligne maintenant.

[MrBiduleX]

En fait je me suis mal exprimé, ce n'est pas "un saut de ligne" mais "une mise à la ligne".
J'ai fait un test et de toute façon

Code :

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

adbStream.WriteText Chr$(10) & Chr(13)

me donne le même résultat vu de NOTEPAD.

Je ne sais pas utilisé les autres commandes que vous m'avez indiquées, pouvez-vous me donner la ligne de code complète ? Merci.

[cerede2000]

Si tu ne lisait pas en diagonale......

J'ai indiqué :

Pour info soit dit en passant un retour à la ligne complet c'est Chr(13)&Chr(10) et MS à inclus une super constante qui s'appel vbNewLine ou encore vbCrLf....

Code :

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

1
2
3
4
5
6
7
8
9
Sub tt()
    Dim adbStream As Object
    Set adbStream = CreateObject("ADODB.Stream")
    adbStream.Type = 2
    adbStream.Charset = "utf-8"
    adbStream.Open
    adbStream.WriteText "bla bla bla bla" & vbNewLine & "totototott totototo"
    adbStream.SaveToFile "C:\Temp\MonFichier.txt", 2
End Sub

Ceci fonctionne comme tu le souhaites.

[MrBiduleX]

C'est nickel !!!
Merci...