export csv avec nom de champ
Bonjour,
j'ai assigné une macro à un bouton afin d'exporter une requête en csv et je rencontre 2 problème :
voici le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private Sub export_Click()
On Error GoTo Err_export_Click
Dim AString As String
AString = "Etiquette_du"
DoCmd.TransferText aceExportDelim, "nom de la spé", "nom de la requête", "C:\Users\xxxx\Dossier\" & AString & Format(Date, "DD_MM_YYYY") & Format(Time, "-HH_MM") & ".csv",True
Exit_export_Click:
Exit Sub
Err_export_Click:
MsgBox Err.Description
Resume Exit_export_Click
End Sub |
l'export fonctionne bien mais :
premier soucis : malgré le "True", je ne parviens pas à afficher le nom des champs.
second problème : mon champ date apparait apres export avec l'heure à 00:00:00 et je n'ai pas besoin de l'heure ....
j'ai vu sur des forums qu'il s'agit de cocher "includes field names.." mais la configuration de la Spé ne le permet pas
http://img571.imageshack.us/img571/924/7bai.png
merci pour vos conseils
