Discussion :

[theshark85]

Bonjour,

Je fais sauvegarde de fichier .csv que je crée moi même via une macro excel. Tout ceci fonctionne correctement.
Mon probleme est que ej voudrais que le ficheir csv soit sauvegardé en UTF8.
Est-ce possible? Si oui, comment faire car je n'ais rien trouvé.

Merci

[Singular]

Tu peux regarder du côté de l'objet DefaultWebOptions. D'après ce que j'en retire, l'encodage n'a d'intérêt que pour les pages Web.

Tu pourraris tenter une sauvegarde sous forme de page Web UTF-8 et ensuite convertir ton fichier en .csv...

[ouskel'n'or]

Par curiosité, dans quelle version es-tu ? Je n'ai rien trouvé sur UTF dans 2003.

[theshark85]

Re à tous,

Pas mal debordé au taff. Je cherche à savoir ceci car le csv va passer par sap apres. C'est pas moi qui gere ça et on m'a dit que mon fichier était pas en UTF-8.
Sinon version office, quelquonque, faut que ça passe partout.

[Singular]

Tu peux regarder du côté de l'objet DefaultWebOptions. D'après ce que j'en retire, l'encodage n'a d'intérêt que pour les pages Web.

Tu pourraris tenter une sauvegarde sous forme de page Web UTF-8 et ensuite convertir ton fichier en .csv...

T'as essayé?

[theshark85]

Bon j'ai essayé vos propositions, mais j'ai pas du tout pigé, car j"y suis pas arrivé. Peut être du au fait que j'enregistre ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
...
 
    On Error Resume Next
    Kill file
    Err.Clear
    Open file For Binary As #1
    Put #1, , Buff
    Close #1
...

Désolé de répondre en décousu.
Sinon, aucune manipulation utilisateur possible. Je ne l'avais pas préciser.

[Singular]

'Open ... For Binary' ne crée pas un fichier texte mais binaire (langage machine). Ainsi, le résultat ne sera pas un Comma Seperated Values (Valeurs Séparées par Virgules), mais plutôt un genre de fichier qui contient des (%6469&%8375&ehdu64HRUIGO...) et plein de caractères non typographiques.

Serts-toi plutôt de 'Open ... For Output' pour créer/écrire dans un fichier texte ou 'Open ... For Append' pour ajouter à un fichier existant. Pour écrire une ligne de texte, serts-toi de 'Print'. Tu verra un bon résumé à cette adresse http://warin.developpez.com/access/fichiers/.

N'oublies pas qu'il faut concaténer tes Strings avant d'utiliser Print pour les écrire. Ex.:

Code :

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

1
2
3
4
5
6
7
8
    Dim sLigne As String
    Dim f as Integer
 
    f = FreeFile()
    Open "C:\monfichier.csv" For Output As #f
    sLigne = "Hello" & "," & "World" & "," & "!"
    Print #f, sLigne
    Close #f

[theshark85]

Merci pour l'explication, mais mon fichier est bien généré en CSV. Mon seul probleme est l'encodage qui est en ANSI et non en UTF8.

Je vais aller voir ton lien voir s'il y a quelque chose sur l'utf8