Discussion :

[stsym]

Bonjour
Je cherche à automatiser l'export de tables et requètes d'une base vers une autres.
Ma base d'origine se nomme "BaseTravail" et celle destinataire"Mabase".
La base destinataire "Mabase" est placée sous "C:\Data\Sauvegarde".
De plus, je souhaite exporter que les objets Tables et Requètes dont les noms commencent par "A"
D'avance merci pour votre aide.

StSym

[loufab]

Bonjour,

En 2 boucles c'est fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 0 To CurrentDb.TableDefs.Count - 1
    if CurrentDb.TableDefs(i).name like "A*" then    DoCmd.TransferDatabase acExport, , "c:\mabasedestination.accdb", acTable, CurrentDb.TableDefs(i).name
Next
 
For i = 0 To CurrentDb.QueryDefs.Count - 1
   if CurrentDb.QueryDefs(i).name like "A*" then   DoCmd.TransferDatabase acExport, , "c:\mabasedestination.accdb", acQuery, CurrentDb.QueryDefs(i).name
Next

Cordialement

[stsym]

Bonjour Loufab,

Merci pour cette solution qui fonctionne très bien avec quelques adaptations
Cordialement
StSym

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 0 To CurrentDb.TableDefs.Count - 1
    If CurrentDb.TableDefs(i).Name Like "A*" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\mabasedestination.mdb", acTable, CurrentDb.TableDefs(i).Name, CurrentDb.TableDefs(i).Name, False
Next
For i = 0 To CurrentDb.QueryDefs.Count - 1
    If CurrentDb.QueryDefs(i).Name Like "A*" Then DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\mabasedestination.mdb", acQuery, CurrentDb.QueryDefs(i).Name, CurrentDb.QueryDefs(i).Name, False
Next