Discussion :

[paulinette]

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!

[Invité]

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

[paulinette]

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

[Invité]

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
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