Discussion :

[DevMedi]

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 :

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

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.

[B-CAB]

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

[DevMedi]

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

[B-CAB]

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 :

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
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...

[DevMedi]

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.

[B-CAB]

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...