Exécuter macro Visio depuis Access

Bonjour tt le monde,

je souhaite exécuter une macro située dans Visio à partir d'Access mais je n'y arrive pas..

Mon code de la macro située dans Access :

Dim Application_Visio As Visio.Application
Dim Document_Visio As Visio.Document

   Set Application_Visio = CreateObject("Visio.Application")
   Application_Visio.Visible = True
   Set Document_Visio = Application_Visio.Documents.Open("g:\My Documents\Visio\test.vsd")

   DoCmd.RunMacro MacroName:="Macro1"

   Application_Visio.ActiveDocument.Saved = True
        
   Application_Visio.Quit

Je sais qu'il y a un problème au niveau du "DoCmd.." car il va rechercher la macro dans Access et non dans Visio.

Il faudrait mettre une commande du genre Document_Visio.DoCmd.... ms ça ne marche pas !!!

QQn sait-il ce qu'il faut mettre?

Merci d'avance.

Gringo

Je pense avoir trouvé ms j'ai de nouveau un autre problème....

Il suffisait de mettre ActiveDocument mais cela m'affiche une erreur :
 "Un composant ActiveX ne peut pas créer d'objet"

J'ai regardé sur Internet ( Support de Microsoft) ms je n'arrive pa à trouver de solution à mon pb..


'Appel du fichier Visio :
            Set Application_Visio = CreateObject("Visio.Application")
            Application_Visio.Visible = True
            Set Document_Visio = Application_Visio.Documents.Open("g:\My Documents\Visio\test_16_juin.vsd")
       
            'on exécute la macro
            ActiveDocument.DoCmd.RunMacro "Copier_Coller_Equipement"
       
            'sauver la modification avant de quitter...
            Application_Visio.ActiveDocument.Saved = True
       
            'Quitte Visio
            Application_Visio.Quit
            Set Application_Visio = Nothing

Merci

Gringo