Exécuter macro Visio depuis Access

Signaler
Messages postés
3
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
27 juin 2008
-
Messages postés
3
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
27 juin 2008
-
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

1 réponse

Messages postés
3
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
27 juin 2008

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