VBA - Copier sur Excel une table Access

Bonjour à tous,

Je dispose de plusieurs centaines de bases Access ayant toutes la même structure, mais avec des données différentes.

Je cherche à faire avec VBA une boucle pour récupérer une table spécifique dans ces bases.

La boucle ne me pose pas de problème, mais je bloque sur la copie de la table Access dans Excel.

Merci d'avance pour votre aide précieuse!

Bonsoir,
Je ne te ferais pas le coup de la bonne ou mauvaise méthode, mais c'est un peut ça.

Pour ce connecter à un base de données, on utilise un connecteur de base de données (Adodb).

Si tu dois importer de données d'un centaines de bases, il te faudra te connecter et te déconcentrer un centaine de fois

En général c'est ce qui prend le plus de temps.

Pour éviter cela,'on utilises un répertoire (celui de l'application par exemple) comme serveur de base de données. Et on exécute des requête avec jointure externe formaté pour Access!

Bien sur il est possible de ce connecter directement sur tes bse Access mais ce sera plus long.
-Ici tu trouveras un exemple ,le lien ce fait avec Excel mais c'est pareil.

http://www.developpez.net/forums/d15...l/#post8370463

Merci je vais essayer de me débrouiller avec ça!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub SqlAccessExcel() Dossier = "C:\Users\dysorthographie\Desktop\" autreDossier ="c:\monRep\" With CreateObject("ADODB.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Dossier & ";Extended Properties = text"   Sql = "SELECT * FROM mytable in '" & Dossier & "Mybase.accdb' 'Microsoft.ACE.OLEDB.12.0' ;" Set Rs = .Execute(Sql) ActiveCell.CopyFromRecordset Rs   Sql = "SELECT * FROM mytable in '" & autreDossier & "Mybase.accdb' 'Microsoft.ACE.OLEDB.12.0' ;" Set Rs = .Execute(Sql) ActiveCell.CopyFromRecordset Rs Rs.Close: Set Rs = Nothing .Close End With MsgBox "Réception des fichiers excel terminée." End Sub

---