manipuler des bases access à partir de VB pour Excel

[selim]

Hello.

Je suis assez novice en VB, et je dois réaliser la tâche suivante :

une base access, que l'on nommera base1.mbd contient la table tblsource.
une seconde base, nommée base2.mbd doit servir de destination à la table tblsource, soit telle qu'elle, soit via des manip / requêtes sql.
je dois donc mettre en place l'import de la table tblsource, à partir d'excel, car j'en ai besoin pour mettre en forme mes résultats, mais aussi pour les afficher etc.

j'ai mis en place une macro de ce type :

Sub ImportTestACCESS()

Dim dbaseTest As Database 'déclaration de ma base de travail
Dim blnDb As Boolean 'booleen pour tester si la table destination tbldestinataire existe déjà - si c'est le cas, je la supprimerai

Set dbaseTest = Workspaces(0).OpenDatabase(chemin de la base base2.mdb, , True)
blnDb = True

If ObjetExist(tbldestinataire ) Then dbaseTest.Execute ("DROP TABLE tbldestinataire ") 'ObjectExist est une fonction que j'ai défini et qui est valide, je le confirme


DoCmd.TransferDatabase acImport, "Microsoft Access", _
chemin_base_source\base1.mdb , acTable, "tblsource", _
"tbldestinataire"


End Sub


voici le message d'erreur que j'obtiens :
Erreur d'execution '-2147417851 (80010105)'
La méthode 'TransferDatabase' de l'objet 'IDOCmd' a échoué.

J'ai pensé à une référence manquante, ou peut-être à une option à définir. Ou alors, cela peut-il être du à des problèmes de droits d'accès sur la base source base1.mdb ?

Merci pour toute aide ou suggestion.

Cordialement,

selim

 

[Michel_M]

Salut Selim,

Ton pb aura + de chance d'être si tu allais sur un forum access.

par exemple tu as: www.self-access.com qui est super

Michel