Conversion d'un fichier encodé en ANSI en UTF-8

Version imprimable

25/05/2016, 16h48
MrBiduleX

Conversion d'un fichier encodé en ANSI en UTF-8
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:

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…
25/05/2016, 17h08
Invité

http://www.developpez.net/forums/d13...o/#post7485065
25/05/2016, 17h12
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, …
25/05/2016, 17h16
Invité

Bonjour Marc,
Ok c'est pas grave merci!
26/05/2016, 09h10
MrBiduleX

SAUT DE LIGNE
Bonjour à tous,

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

Lorsque je code :
Code:

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:

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.
26/05/2016, 09h16
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....
26/05/2016, 09h32
MrBiduleX

Parce que le sujet n'était pas dans la bonne rubrique.
26/05/2016, 09h33
cerede2000

Ce n'était pas à ça prêt....
Bref tu as eu ta réponse pour le retour à la ligne maintenant.
26/05/2016, 09h46
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:

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.

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

J'ai indiqué :

Citation:

Envoyé par cerede2000

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:

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.

26/05/2016, 10h01
MrBiduleX

C'est nickel !!! :D
Merci...