[XL-2007] Convertir en csv - unicode [Résolu]

[hugues1138]

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.

[jfontaine]

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

[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)

[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

"c:\text.csv"

Vers un emplacement où tu sais avoir le droit d'écriture

[hugues1138]

Bien vu, ça fonctionne.
Merci !