{VBA} : MACRO :Import d'Access dans excel

Fermé
Teddy42 - 27 juil. 2009 à 16:51
vleborgne Messages postés 5 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 28 juillet 2009 - 28 juil. 2009 à 10:57
Bonjour,

Voici mon problème, j'ai une base access avec des requetes selections et 1 fichier excel. J'aimerais une macro qui execute la requete, et l'importe directement dans un fichier excel, à un endroit préci d'une feuille. Je n'y arrive pas! Voici ma macro que j'ai crée :

(ps: la macro est sous le fichier excel, et va chercher les données dans access)


Sub importBDD()

Dim Db As Database
Dim Rs As Recordset

Worksheets("EXPORT").Select

Set Db = Workspaces(0).OpenDatabase(ThisWorkbook.Path & "\Base Collection.mdb", False, False)
Set Rs = Db.OpenRecordset("Select * FROM 201MAROQTauxdétentioncollection")

Range("A5").CopyFromRecordset Rs

Rs.Close
Db.Close

MsgBox "traitement terminé"

End Sub



Merci d'avance ;)

1 réponse

vleborgne Messages postés 5 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 28 juillet 2009
28 juil. 2009 à 10:57
Si ta requête est un select * tu peux exporter directement toute ta table avec office 2008:
External data-> export to excel

C'est plus simple et plus rapide!
0