Discussion :

[Pix_elle]

Bonjour à tou(te)s,

Nouveau sujet, nouvelle prise de tête.

J'ai pour ambition de créer une application Excel qui permet d'enregistrer directement des documents au format CSV, encodage UTF-8.

Processus :
- A l'aide d'un combobox dynamique, je sors la liste des classeurs Excel ouverts.
- Je sélectionne le classeur à convertir
- Je sélectionne le type de séparateur (virgule ou point-virgule)
- Je lance l'enregistrement : le fichier est enregistré à l'emplacement voulu par l'utilisateur et sous le nom voulu.

Mon problème (et contrainte interne) étant la gestion des caractères spéciaux et des accents. Je dois donc intégrer à mon code actuel quelque chose permettant l’encodage en UTF-8 de mon document CSV fraîchement créé. J'y suis depuis ce matin et je commence à n’emmêler les pinceaux.

Dans un premier temps, est-il possible d’encoder des CSV avec séparateur virgule ? Sur les exemples que j’ai vu, il n’était question que du séparateur point-virgule.

Ensuite, seconde question : Comment encoder convenablement un fichier CSV avec UTF 8 par VBA ? La partie actuelle concernant l'encodage ne semble pas fonctionner puisque quand j'ouvre le CSV final (en faisant Données > Fichier Texte, en sélectionnant "Encodage Unicode : UTF 8), les accents laissent place à un losange noir.

Voici le code actuel lorsque le séparateur du CSV choisi est un point-virgule.
Document.Text correspond au document sélectionné dans la combobox.
PointVirgule.Value et Virgule.Value sont des checkbox (lorsque =True, la case est cochée)
TrouveUtilisateur est une fonction qui permet d'aller enregistrer directement dans "Mes documents" (selon l'utilisateur, en allant chercher son ID Windows)
csvconv.csv c'est le document CSV (sans encodage) qui est créé dans "Mes documents". Il est là pour "faire plusieurs étapes"
csvconv1.csv c'est le document CSV créé après l'encodage.
Ces deux documents sont des fichiers "de travail", auquel on ne touche pas... C'est presque sur qu'ils sont créés "pour rien" mais ça me permet d'avoir des points de contrôle en cas de bug.


Edit : En fait, le problème que je constate est qu'avec l'encodage UTF 8, les accents s'en vont alors qu'avec l'encodage "ANSI", ils restent... C'est pas l'inverse d'habitude ?

Code :

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

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Dim Lecteur As String, Chemin As String
    Dim Message As String, MonFichier As String
 
    Lecteur = "C:"
    Chemin = Lecteur & "\Documents and Settings\" & TrouveUtilisateur
    Chemin = Chemin & "\Mes Documents\"
 
If (Pointvirgule.Value = True And Virgule.Value = False And Document.Text <> "") Then
MsgBox "Vous êtes sur le point d'enregistrer le document " & Fichier & Chr(10) & "au format CSV, séparateur point-virgule"
Application.DisplayAlerts = False
Workbooks(Fichier).SaveAs Filename:=Chemin & "csvconv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
Application.DisplayAlerts = True
 
 
 
 
'Début encodage UTF 8
 Dim i As Long
    Dim sNomFichierIn As String
    Dim sNomFichierOut As String
    Dim fIn As Integer
    Dim fOut As Integer
    Dim sLigne As String
 
    Dim docfinal As String
 
    ' Préciser les chemins et noms des fichiers è traiter
    sNomFichierIn = Chemin & "csvconv.csv"
    sNomFichierOut = Chemin & "csvconv1.csv"
 
    fIn = FreeFile()
    Open sNomFichierIn For Input As #fIn
 
    fOut = FreeFile()
    Open sNomFichierOut For Binary As #fOut
 
    Do While Not EOF(fIn)
        Line Input #fIn, sLigne
        For i = 1 To Len(sLigne)
            If Mid(sLigne, i, 1) = ";" Then
                Put #fOut, , AscW(";")
            Else
                Put #fOut, , AscW(Mid(sLigne, i, 1))
            End If
        Next i
        Put #fOut, , AscW(vbCrLf)
    Loop
    Close #fIn
    Close #fOut
'Fin encodage UTF 8
 
'Enregistrement du doc CSV, encodé en UTF 8
Workbooks("csvconv.csv").Close False
Application.Workbooks.Open Chemin & "csvconv1.csv"
Workbooks("csvconv1.csv").SaveAs Filename:=Application.GetSaveAsFilename(fileFilter:="csv Files (*.csv), *.csv"), FileFormat:=xlCSV, CreateBackup:=False
 
Application.Visible = True
Application.WindowState = xlMaximized
Unload Me
End If

Je vous remercie par avance de l'aide que vous pourrez m'apporter !
Bonne soirée

[patricktoulon]

Bonjour
perso a prendre un pied de biche pour ouvrir la porte d'un stroump je préfère l'invité a prendre l'apéro dans le jardin
c'était ma réflexion du jour

mis a part ca si tu a des soucis de restitution l'ors de l'ouverture de tes CSV shunt la méthode Excel et utilise la méthode open sur des fichiers textes
les caractères spéciaux ne devraient pas etre transformés
cet exemple te créé un fichier texte avec la virgule comme séparateur avec la plage utilisé dans le sheet actif et garde tout les caractères particulier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub plage_to_CSV()
    tableau = ActiveSheet.UsedRange.Value 'plage a adapter si précise 
    fichier = "C:\Users\" & Environ("UserName") & "\Desktop\test2.txt"' chemin a adapter 
    x = FreeFile
    Open fichier For Output As #x
    For lig = 1 To 10
        texte = ""
        For col = 1 To 3
            texte = texte & tableau(lig, col) & ","
        Next
        Print #x, texte
    Next
    Close #x
End Sub

voila

[kiki29]

Salut, à titre de curiosité voir ceci ( pas testé )

[Pix_elle]

Bonjour à tous les deux et merci pour vos retours.

Concernant la proposition de patricktoulon : La proposition me convient. Cependant, j'ai toujours le problème des accents qui s'en vont quand j'ouvre le txt via Données > Fichier Texte (en sélectionnant "Encodage Unicode : UTF 8). Si je passe par NotePad en encodant le fichier en UTF8, les accents sont conservés. Seulement, je ne veux pas que les utilisateurs finaux de l'appli n'aient à faire cette manipulation.

Concernant la proposition de kiki29 : J'ai transformé le code pour l'adapter à mon environnement de travail et j'ai une erreur de compilation (type défini par l'utilisateur non défini) à la ligne

Code :

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

Dim objStream As ADODB.Stream

de la fonction

Code :

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

Public Function Zone2CSV_UTF8(fichier As String, Onglet As String, Zone As String)

J'ai bien été voir dans les références VBA et tout semble correct.



En tout cas, ça m'a permis d'avancer un peu et je vous en remercie

Edit : je suis tombée sur une discussion d'un autre forum (je sais pas si je peux mettre le lien) et je pense que je suis sur la bonne voie. Je vous tiens au courant dans la journée voire demain des résultats !

[Marc-L]

Bonjour, bonjour !

Enregistrement CSV avec encodage UTF 8

Une exemple dans cette discussion en modifiant le Charset bien entendu !

Documentation de l'objet ADODB.Stream disponible sur MSDN …

Sinon via Enregistrer sous pour le format CSV disponible il suffit dans l'icône Outils de modifier l'encodage …
Rien qu'en activant l'Enregistreur de macros le code est livré sur un plateau !
Voir donc la propriété Encoding dans l'aide VBA interne, déjà disponible dans Excel 2003 …

Voilà, voilà !

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[Pix_elle]

Je crois que c'est le plus beau jour de ma vie de """""développeuse""""" en VBA : j'ai réalisé ce que je pensais être une utopie : ça y est, mes CSV s'enregistrent bien avec l'encodage UTF 8.

J'ai trouvé un code tout fait sur le net (qui ressemblait très fortement à celui proposé par kiki29), j'ai dû repenser le codage VBA de mon fichier (pour en faire quelque chose de beauuuuuucoup plus simple).

Pour les interessés, voici le code qui me permet d'encoder mon csv en UTF 8 :
Au passage, j'ai résolu le problème qui se posait avec ADODB.Stream en allant dans Visual Basic > Outils > Références et en sélectionnant "Microsoft ActiveX Data Objects 2.6 Library"

Code :

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

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub inistream()
 
'Initialisation du stream unicode
 
    Set objStream = New ADODB.Stream
    objStream.Charset = "utf-8"
    objStream.Mode = adModeReadWrite
    objStream.Type = adTypeText
    objStream.Open
 
End Sub
 
Public Function ConvertStringToUtf8Bytes(ByRef strText As String, fin, fic) As Byte()
 
    ' write bytes into stream
 
    objStream.WriteText strText
    objStream.Flush
 
    If fin = 0 Then Exit Function
 
    ' rewind stream and read text
    objStream.Position = 1
    objStream.SaveToFile fic, 2
    objStream.Close
 
End Function
 
Sub traitement_lignes_ptvirgule()
Dim derlig, fin, ligne As Integer
Dim cellule As Range
Dim info As String
Dim fic, tempo As String
 
fic = Application.GetSaveAsFilename(Nom_Fichier, "CSV Files (*.csv), *.csv")
If fic = False Then Exit Sub
 
derlig = Worksheets("Feuil1").Range("A50000").End(xlUp).Row
inistream
 
For ligne = 1 To derlig
    info = ""
    For Each cellule In Range("A" & ligne & ":CL" & ligne)
        info = info & cellule.Value & ";"
    Next
    If ligne = derlig Then fin = 1 Else fin = 0
    info = ConvertStringToUtf8Bytes(Left(info, Len(info) - 1) & vbCrLf, fin, fic)
Next
 
End Sub

Merci à tous !
Maintenant, plus qu'à l'envoyer en test pour faire ressortir de possibles bugs.


J'ai peut-être juste une dernière question : J'ai crû comprendre que les références Visual Basic sont propres au document. Le problème que j'avais avec ADODB.Stream venait d'une référence non cochée. Maintenant qu'elle est cochée dans le document, il n'y a plus de soucis à se faire pour les futurs utilisateurs de l'outil ?

[clementmarcotte]

Bonjour,

J'ai peut-être juste une dernière question : J'ai crû comprendre que les références Visual Basic sont propres au document. Le problème que j'avais avec ADODB.Stream venait d'une référence non cochée. Maintenant qu'elle est cochée dans le document, il n'y a plus de soucis à se faire pour les futurs utilisateurs de l'outil ?

En principe, les fichiers pour ADO sont inclus dans Windows depuis longtemps. Au besoin, ils peuvent être téléchargés chez Microsoft.

Ceci dit, cela ne veut pas dire que le Service de Dictature informatique n'a pas bloqué l'installation...

[patricktoulon]

Bonsoir la ""DEVELOPPEUSE""

je ne vois pas trop ce que la librairie sur le data object viens faire la dedans entre nous

maintenant pour adob on le déclare en late binding pour se passer de devoir activer la référence

Code :

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

1
2
dim OBJstream as object
Set OBJstream = CreateObject("ADODB.Stream")

voila

edit
mille excuse j'ai confondu avec la librairie forms object
j'ai pris pour habitude de code en late binding je n'ai plus le nom des références en mémoire
cela dit ca change rien pour l'object
pour un débutant travailler avec la référence activée lui permet d'avoir l'auto complétion ca aide
quand on en a l'habitude on déclare en late binding
ca permet une transportabilité pas besoins d'activer

je supose que tu a plus ou moins compris le code que tu a ecri
tu devrait pouvoir maintenant simplifier et même regrouper tes fonctions

l' object Stream en volatile comme ca c'est pas top
et dim le en haut de module si ce n'est pas déjà fait

[Pix_elle]

Bonjour,

Patrick, j'essaie tant bien que mal de comprendre le code qui permet l'encodage en UTF-8 et à vrai dire, j'ai pas trop eu le temps de me poser à le comprendre. Je vais m'y pencher plus sérieusement quand j'aurai un peu plus de temps. Pour le moment, ça fonctionne donc "ouf". Mais c'est clair que le jour où il y aura un bug, ça sera plus facile de comprendre le bug en comprenant le code .


Sinon, ça fonctionne super bien. On m'a "juste" fait remarqué qu'il fallait que l'enregistrement soit en UTF-8 sans bom.

J'ai été voir la différence du UTF-8 avec bom et sans... Et le truc c'est que le "avec bom", il y a un caractère ajouté en début de fichier... Mais non visible par l'utilisateur (ça serait tellement facile sinon). Alors que le "sans bom" n'en rajoute pas.

J'ai vu que Access gérait cela parfaitement. Est ce que Excel a aussi cette possibilité ?

Merci !