( DoCmd.TransferText ) Export Data from Access to Text File

Bonjour;

J'ai un petit probleme, j'utilise Access 2007, et lors de l'export automatique (en code VBA de DATA de Access vers un fichier .txt j'arrive pas à afficher la premiere ligne (ligne des noms de chaque colonne)

Voici le code utilisé:

Code:

---

1 2 3 4 5

DoCmd.TransferText transfertype:=acExportDelim, _ SpecificationName:=sExportSpec, _ TableName:=sTableName, _ FileName:=sExportedFileName, _ HasFieldNames:=True

---

Merci de me dire comment faire pour afficher la premiere ligne.

As-tu essayé en mettant l'argument HasFieldNames à FALSE?

Oui, j'ai déja essayé, mais tout pas la premiere ligne.

Je connais une astuce mais ce n'est pas forcément la plus simple:

Créé un Recordset dont la requête affichera ta table :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Set Rs = CurrentDb.OpenRecordset("SELECT * FROM MaTable", dbOpenSnapshot)   Open Chemin For Output As #1   Print #1, "NomChamp1;NomChamp2;..."   While Not Rs.EOF   Print #1, Rs.Fields("NomChamp1").Value & ";" & _ Rs.Fields("NomChamp2").Value & ";" & _ '... Rs.MoveNext   Wend   Rs.Close Set Rs = Nothing Close #1

---

Chemin est le chemin complet du fichier que tu veux créer...

Merci pour votre proposition, mais moi j'ai réuissi a faire l'export, il me manque juste la premiere ligne (trés importante) et c'est HasFieldNames:=True qui fait sa , mais dans mon cas j'arrive pas a voir la premiere ligne.

Justement!

Si tu veux avoir le nom de tes champs utilise le recordset pour écrire dans ton fichier...

J'avais le même soucis, je voulais écrire le nom de mes champs et deux lignes totalement différentes au début de mon fichier texte...

Donne moi le nom de tes champs, le nom de ta table ainsi que le chemin du fichier que tu veux créer et je te renverais le bout de code à ajouter à ton VBA...