Discussion :

[adelsunwind]

Bonjour j aimerai pour faire des stat extraire une table access vers une feuille excel
je suis donc passer pas une requete avec le code suivant :

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
 
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("L:\PLFRC")
 
Set xlSheet = appexcel.sheets("Feuil1")
xlSheet.Select
 
 
Set db1 = DBEngine.OpenDatabase("L:\Stat_loc.mdb")
Set qd = db1.CreateQueryDef("Requete_Temporaire", "Select * From Mens_loc")
 
 
DoCmd.TransferSpreadsheet acExport, , "Requete_Temporaire", xlSheet
DoCmd.DeleteObject acQuery, "Requete_Temporaire"

le fichier excel s ouvre bien mais apres j ai une erreur sur le transferSpreadsheet.

Quelqu un a t il une idée de la bonne syntaxe

[helas]

Bonjour
la commande TransfertSpreedSheet semble incomplète (voir l'aide) et tout le code précédent la commande est inutile

Code :

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

1
2
 
docmd.TransferSpreadsheet acExport,,"Mens_loc", "L:\PLFRC", true

Pourquoi créer une requête alors que l'exportation de la table suffit ?
Le code indiqué ci-dessus est amplement suffisant