Unicode et Utf8

[zutatous]

Bonjour
Existe-il une fonction qui me permettre de coder mes textes vers utf-8 et vis versa ?
Comment je peux récupérer le code d’un caractère Unicode ?
Merci d’avance

 

[STephane]

Re : Unicode et Utf8

bonjour,

pour une problématique d'encoding, j'avais dû faire cela également.
pour capitaliser, je me suis gardé ça au chaud dans mon perso.xls


Function file_Encoding(ByVal sPath$, Optional SetChar)
If IsMissing(SetChar) Then SetChar = "UTF-8"
SetChar = "UTF-8"
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset = SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Function

Sub file_Encoding_DEMO()
Dim FileName$
FileName = "C:\documents and settings\STephane\bureau\" & "CORRIGIDO_NONCORRIGE.txt"
Call file_Encoding(FileName)
End Sub

 

[zutatous]

Re : Unicode et Utf8

Merci jevai tester ça

 

[ademus]

Re : Unicode et Utf8

Solution simple.
Créer un fichier TXT avec un éditeur de texte comme notepad
Dans ce fichier, régler l'encodage à UTF8
Sauver avec l'extension .CSV et fermer

Aller dans Excel et ouvrez le fichier que vous voulez exporter en CSV
Sauver votre fichier avec le format CSV (comma delimited)
et enregistrer dans le fichier précedement créer avec l'encodage UTF8
L'encodage sera conservé