Bonsoir,
J'ai une base de travail T, deux bases externes baseE1 et baseE2.
Comment, étant dans la base T, copier une table de la base E1 dans
la base E2 ?
La méthode TransferDatabase exige qu'on soit dans la base E1.

Je sais m'y mettre en définissant un Workspace puis en y ouvrant E1, mais la méthode TransferDatabase fonctionne alors comme si on était dans la base T.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
  Dim Db As DAO.Database
  Dim oWks As DAO.Workspace
  Dim MaTab as DAO.Tabdefs
  Set oWks = DBEngine.CreateWorkspace("", "admin", "", "dbusejet")
  Set Db = oWks.OpenDatabase(MaTab, False, False, "MS Access;PWD=")
  TransferDatabase acExport, "microsoft access", CheminE, _
      acTable, strNom, strNom
Il faut certainement quelque chose avant la commande de transfert, mais quoi ?
S'il s'agissait de supprimer la table je mettrais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Db.Tabdefs.Delete strNom
Merci de l'aide