Convertir en csv - unicode

Version imprimable

09/09/2011, 09h51
hugues1138

Convertir en csv - unicode

Bonjour à tous,

je dois importer dans un logiciel des fichiers CSV.
J'obtiens ces fichiers csv depuis des fichiers excel. Or j'ai des données comportant des caractères turques.

Quand je convertis le fichier excel en csv, que je ferme et que je le réouvre, les caractères turques sont remplacés par des ?.
Le problème semble être récurrent sur beaucoup de forums (francophones et anglophones) depuis plusieurs années, mais je n'ai pas réussi à trouver de solution satisfaisante.
Je précise qu'il est indispensable d'obtenir in fine des fichiers csv, et pas des fichiers .txt, pour l'import dans le logiciel.

Quelque a-t-il une idée ou un lien vers une page que je n'aurais pas trouvée ?

Merci beaucoup de votre aide.

Bonjour,

Ci dessous une procédure qui enregistre les données d'une feuille au format CSV en table de caractère unicode

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub CsvUnicode()
 
Dim strLigne As String
Dim iCol As Integer
Dim i As Long
 
Dim fso As Object
Dim txtStrm As Object
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtStrm = fso.CreateTextFile("c:\text.csv", Overwrite:=True, Unicode:=True)
 
For i = 1 To Range("A65536").End(xlUp).Row
 
    strLigne = ""
 
    For iCol = 1 To Rows(i).End(xlToRight).Column
        If strLigne <> "" Then strLigne = strLigne & ";"
        strLigne = strLigne & Cells(i, iCol).Value
 
    Next iCol
 
    txtStrm.WriteLine strLigne
 
Next i
 
txtStrm.Close
 
End Sub

09/09/2011, 13h50
hugues1138

Merci pour la réponse.

Pour l'instant j'ai un "Erreur d'exécution '70' : Permission refusée" que je ne comprends pas très bien à la ligne :

Code:

Set txtStrm = fso.CreateTextFile("c:\text.csv", Overwrite:=True, Unicode:=True)
09/09/2011, 13h54
tototiti2008

Bonjour hugues, Bonjour jfontaine,

Peut-être n'as tu pas de droits d'écriture sur ton disque C:

Change l'adresse de destination du fichier

Citation:

"c:\text.csv"

Vers un emplacement où tu sais avoir le droit d'écriture
09/09/2011, 17h11
hugues1138

Bien vu, ça fonctionne.
Merci !