querydefs / import dans Excel

bonjour,

je continue sur la même veine qu'hier bien que ta demande me aprait être
plus précise aujourd'hui.
Voici un exemple de code pour récupérer les requetes d'une base access et
enregistrer les résultats sous Excel comme des fichiers portant le nom de tes
requêtes.
Tu peux adapter le code à ce que tu veux.Il est necessaire de faire uen
référence à la bibilothèques d'objet de Access (Microsoft Access 9.0 Object
Library dans le cas d'ACCESS 2000 et un autre N° pour une autre version
d'ACCESS) dans Outils/références.
Le code suivant est fait pour Office 2000

Sub Extraction_Access()

'Crée une nouvelle instance de Microsoft Access.

Set appAccess = CreateObject("Access.Application.9")

'Déclare le nom de la base de données et l'ouvre

nombase1 = nom completd e ta base de donnees entouré de guillemets
appAccess.OpenCurrentDatabase nombase1

'effectue la boucle sur l'ensemble des requêtes contenues dans la base de
données
'va ouvir les requetes et les enregistre dans l'exemple sous le répertoire
'D:DONNEESTAMPON avec le nom correpsondant au nom de la requete dans
'ACCESS.

Set bds = appAccess.CurrentDb

For Each qdf In bds.QueryDefs
With appAccess.DoCmd
.OpenQuery qdf.Name
.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, qdf.Name,
"D:DONNEESTAMPON" & qdf.Name & ".XLS", True
End With
Next

'réinitialise la viable, ferme la base et quitte Access

Set bds = Nothing

With appAccess
.CloseCurrentDatabase
.Quit
End With

End Sub

A+

Bonjour,

depuis aujourd'hui je recherche des exemples de code qui utiliseraient les
QueryDefs pour exécuter des données et qui les afficheraient dans une feuille
Excel.

Merci !