Discussion :

[Lo²]

Hello tous,

J'ai 2 fichiers :
A.mdb
B.mdb (protégé par un mot de passe)

Je veux exporter une table de A vers B en utilisant la commande suivante qui se trouve dans le code de A :

DoCmd.TransferDatabase acExport, "Microsoft Access", <BD destination>, acTable, <table source>, "Users", False

Ce code fonctionne mais bien sûr il me demande le mot de passe de B.mdb.

Je voudrais intégrer le mot de passe dans la ligne de commande ci-dessus mais c'est là que je bloque

Navré de poser ce genre de question car j'ai l'impression que la réponse est toute simple.

Merci pour votre aide

[Lou Pitchoun]

Salut

Et si tu remplaces False par True ???
Penses à l'aide access...

[Lo²]

Désolé mais j'ai toujours une demande de mot de passe qui s'affiche.

Si je n'ai pas été clair, je voudrais au final intégrer le mot de passe dans cette ligne de code comme cet exemple :

DBEngine.CreateDatabase Temp, ";LANGID=0x0409;CP=1252;COUNTRY=0;PWD=motdepasse"

[Lou Pitchoun]

J'avais bien compris ton besoin....
Essaie de voir du coté de connect et opendatabase
Tu dois pouvoir spécifier tes options de connection, et une fois connecté alors tu transfères ta table.
Ce n'est qu'une idée, je n'ai pas de base protégée donc je n'ai jamais été confronté à ce problème...

[Lo²]

ok, j'essaye cette solution et je vous tiens au courant.

[Lo²]

Alors pour ceux que ça intéresserait :

Code :

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

1
2
3
4
5
6
Dim db As Database
Set db = DBEngine.OpenDatabase(<chemin bd>, False, False, ";pwd=password")
 
DoCmd.TransferDatabase acExport, "Microsoft Access", <chemin bd>, acTable, <table srce à exporter>, "<nom table destination", False
 
db.close

voilou
Bonne continuation à tous