Lancer une macro Excel à partir d'Access
Bonjour
J'ai une macro basique "copier_coller" sous mon fichier Excel TEST.xlsm. Elle fonctionne lorsque je la lance de Excel.
[size=85]Sub copier_coller()
End Sub[/size]
Je souhaite la lancer depuis ACCESS, mais rien ne se passe.. voici ma macro sous ACCESS :
[size=85]Sub PilotageMacro1()
End sub[/size]
Pouvez-vous svp m'aider si vous avez rencontré la même difficulté ?
Bonsoir Sidwel,
Je te propose de :
- Copier ta macro excel dans le module "ThisWorkbook"
- Préfixer le nom de macro par "Public" :
Public Sub copier_coller()
MsgBox "Proc Copier_Coller"
DernLigne_1 = Sheets("donnees").Range("A" & Rows.Count).End(xlUp).Row
DernLigne_2 = Sheets("compilation").Range("A" & Rows.Count).End(xlUp).Row
Sheets("donnees").Range("A2:G" & DernLigne_1).Copy Destination:=ThisWorkbook.Sheets("compilation").Cells(DernLigne_2 + 1, 1)
End Sub-Dans le module ACCESS de remplacer "xl.Run copier_coller" par "xl.Run "ThisWorkbook.copier_coller"
Bonjour Gvialles
En effet ça tourne quand je la lance à partir de la fenêtre visual basique !! un grand merci
Mon module dans Access s'appelle "Copier_Coller dans Excel" et la fonction est donc :
[size=85]Sub Copier_Coller_Excel()
End Sub[/size]
Par contre, je souhaite l'associer à un bouton de mon Formulaire Access. J'ai donc crée une macro appelée "CopierCollerExcel" avec l'action "ExécuterCode" qui a pour effet de lancer le code Sub Copier_Coller_Excel( )
Puis j'ai crée un bouton sur le formulaire et je lui demande de lancer cette macro CopierCollerExcel
Quand je lance le bouton, j'ai une alerte me disant que l'objet ne contient pas d'objet automation "Copier_Coller_Excel"
Donc ma question c'est comment, sous ACCESS, affecter un code VBA (module Copier_Coller_Excel dans mon exemple) à un bouton de Formulaire ?