Discussion :

[informer]

Bonjour à tous

A priori il suffit de fairte

Code :

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

DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\...\DatabaseCible.accdb", acForm, "FormulaireSource", "FormulaireCible"

Hé bien non car j'ai le code erreur suivant



En désespoir de cause j'avais imaginé un truc bizarre du genre

Code :

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

1
2
3
Set dbCible = OpenDatabase("D:\...\maBaseCible.accdb")
dbCible.DoCmd.TransferDatabase acImport, "Microsoft Access", "D:\...\DatabaseSource", acForm, "frmSource", "frmChargée"
set dbCible = nothing

Mais là aussi pas plus de réussite

Quelqu'un pour m'aider

[Malick]

Une méthode (non VBA) est expliquée ici : Exporter un objet de base de données dans une autre base de données Access

[informer]

Merci mais je dois le faire en VBA, une idée?

[Malick]

J'ai fait un test avec votre code et cela a bien fonctionné.

Ce message d'erreur s'est produit peut-être parce que le formulaire n'est pas fermé avant son exportation.

En changeant votre code comme ceci vous obtenez quoi ?

Code :

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

1
2
DoCmd.Close acForm,"FormulaireSource",acSaveYes
DoCmd.TransferDatabase acExport, "Microsoft Access", "D:\...\DatabaseCible.accdb", acForm, "FormulaireSource", "FormulaireCible"

[informer]

Super bien vu milkoseck. Effectivement, la condition obligatoire est qu'aucun formulaire soit en mode Running. C'est logique après coup

Merci encore milkoseck

[Malick]

De rien, c'est un plaisir

À bientôt pour d'autres aventures sur les forums.

Cordialement,
Malick