Bonjour,

Je travaille sur une base en dév, et je veux pouvoir exporter chaque élément modifié en production grâce à un évènement sur click.

Le nom des objets de l'application sont stockées dans une liste multiselect "Cmb_Selection_Objet", le nom de la base destinatrice est stockée dans "CheminDestination".

J'ai parcouru le forum, me suis servi de l'aide mais voilà, l'application me renvoit à chaque fois une erreur concernant le type d'objet que j'exporte.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Btn_exportation_Click()
 
Dim typeObjet As String
Dim ObjSource, ObjDestination As Object
Dim varItm As Variant
 
For Each varItm In Cmb_Selection_Objet.ItemsSelected
typeObjet = "ac" & Cmb_Selection_Objet.Column(1, varItm)
Set ObjSource = CurrentData.AllTables(Cmb_Selection_Objet.Column(0, varItm))
Set ObjDestination = CurrentData.AllTables(Cmb_Selection_Objet.Column(0, varItm))
 
   DoCmd.TransferDatabase acExport,"Microsoft Access" , CheminDestination, acDefault, ObjSource, ObjDestination
Next varItm
End Sub
Quelqu'un peut m'indiquer l'erreur...que j'ai commise.

J'ai également essayé avec copyobject et idem même punition...

merci,

RG