[AC-2007] export requête excel [Résolu]

[bernards111]

Bonjour,

J'aimerais avoir une explication sur l'export excel
J'ai réalisé cet export avec >>

DoCmd.TransferSpreadsheet acExport, , "Tbl_Globale", "C:/chemin.xls", False, "Onglet"

Celle ci marche bien mais j'aurais deux questions:

la première à quoi sert ce "false"

et la deuxième>> l'export est réalisé directement et un msg box m'indique qu'il a été fait mais comment faire pour ouvrir une fenêtre d'enregistrement et choisir l'emplacement du fichier sans être obligé de changer le chemin insérer dans le code??

[spaiku]

Bonjour,

la syntaxe de TransferSpreadsheet est la suivante (source MSDN ou aide d'Access, qu'il faut lire) :

expression.TransferSpreadsheet(TransferType, SpreadsheetType, TableName, FileName, HasFieldNames, Range, UseOA)

Le false indique donc que tu exportes sans les noms de champs.

Pour faire sélectionner un emplacement réseau à ton utilisateur, tu trouveras un exemple dans la FAQ, qu'il faut lire aussi, ici.

[bernards111]

ok merci spaiku!!

Mon export excel a bien fonctionné,

je mets ici le code utilisé et insérer dans un module

Code :

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
Option Compare Database
 
Private Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
 End Type
 
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
 
Function ShowOpen()
 
 
Dim nomcomplet As String         'nom de variable récupérant le chemin du fichier
 
 
'Liaison base stock
Dim OFName As OPENFILENAME
 
     OFName.lStructSize = Len(OFName)
     OFName.hwndOwner = 0
     OFName.hInstance = Application.hWndAccessApp
     OFName.lpstrFilter = "Fichier (*.*)" + Chr$(0) + "*.*" + Chr$(0)
     OFName.lpstrFile = Space$(254)
     OFName.nMaxFile = 255
     OFName.lpstrFileTitle = Space$(254)
     OFName.nMaxFileTitle = 255
     OFName.lpstrInitialDir = "C:\"
     OFName.lpstrTitle = "Ouvrir..."
     OFName.flags = 0
 
If GetOpenFileName(OFName) Then
         ShowOpen = Trim$(OFName.lpstrFile)
Else
         ShowOpen = ""
End If
 
End Function