Discussion :

[Netzo]

Bonjour,
comme le titre l'indique, je souhaiterais pouvoir exécuter une macro présente dans un fichier Visio en cliquant sur un bouton commande dans mon projet VB6. Etant débutant sur ce langage, je galère un peu. J'ai cherché un peu partout sur le net mais en vain.

Voici le code correspondant à bouton commande:

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
16
17
18
Private Sub Recup_Click()
 
            'Appel du fichier Visio :
            Set Application_Visio = CreateObject("Visio.Application")
            Application_Visio.Visible = False
            Set Document_Visio = Application_Visio.Documents.Open("g:\Test01.vsd")
 
            'on exécute la macro
            ?????????
 
            'sauver la modification avant de quitter...
            Application_Visio.ActiveDocument.Saved = True
 
            'Fermer Visio
            Application_Visio.Quit
            Set Application_Visio = Nothing
 
End Sub

Donc si quelqu'un pouvait m'expliquer comment faire cela ou me donner une alternative quelconque.

Merci d'avance!

[Invité]

Bonjour

Je n'ai pas Visio, mais regardes s'il n'y a pas une méthode qui se nomme Run dans son VBA.

Philippe

[Netzo]

Edit: J'ai finalement réussi!!! Enfin!

Je met le code que j'ai utilisé:

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
16
17
18
19
20
21
22
Sub RunVisio()
 
    Dim oVisio As Object
    Dim oVisioDocuments As Object
    Dim oVisioDocument As Object
    Dim sFile As String
 
    File = App.Path & "\Test01.vsd"  'Chemin du Dessin Visio
    Set oVisio = CreateObject("Visio.Application")
    oVisio.Visible = False
 
    With oVisio
        Set oVisioDocuments = oVisio.Documents
        Set oVisioDocument = oVisioDocuments.Open(FileName:=File)
        oVisioDocument.ExecuteLine "Test01.Macro1.Recup"  'Execution de la Macro
    End With
 
    oVisio.ActiveDocument.Saved = True
    oVisio.Quit
    Set oVisio = Nothing
 
End Sub

Après il suffit juste de faire un "Call" de la fonction!