Récupérer des données Acces vers Excel

[guillaume07]

Hello,

j'aurais voulu savoir quel été le moyen le plus rapide pour exécuter des requêtes SQL sur Acess depuis Excel. En effet j'ai pu découvrir une pléthore de méthodes qui permettent de réaliser cette tâche.
Parmis celle que je connais , il y a depuis l'interface d'Excel: Microsoft Query, en VBA: ADO DAO ...etc
bref je suis un peu perdu devant cette multitude de façon de procédé.
Existe t-il une méthode meilleur qu'une autre ?
Merci

 

[Jacques87]

Bonjour Guillaume

Et pourquoi pas tout simplement importer les données en utilisant les options de la barre de menu
Données
Données externes
Importer des données

Maintenant si tu veux quelquechose de plus pointu, tu as raison de construire ton code
En ce qui me concerne voila ce que j'écris :

With ActiveSheet.QueryTables.Add(Connection:= _
'ODBC;DSN=MS Access Database;DBQ=A:\\' & Fichier & ';DefaultDir=A:;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;' _
, Destination:=ActiveSheet.Range('A1'))
.Sql = Array( _
'SELECT export.nom, export.prénom FROM `A:\\' & Fichier & '`.export export' _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With

bon courage