Discussion :

[AndréPe]

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

[pgz]

Bonsoir.

La méthode TransferDataBase permet de copier une table de E1 dans T.
La méthode CopyObject permet de copier une table de T dans E2.
Reste à effacer la table dans T.

Il y a peut-être plus simple.

Bon courage,

PGZ

[AndréPe]

Eureka !
C'est évidemment une solution, et je vais l'appliquer. Elle n'est pas élégante, mais elle est efficace.


Merci
Amitiés