Bonjour,
tout est dans le titre, je voudrais qu'une macro s'exécute automatiquement quand j'ouvre mon fichier Visio.
J'ai essayé en la nommant AutoExec() et autres méthodes mais pas moyen.

Sinon une alternative qui pourrait me satisfaire: exécuter cette même macro à partir d'un projet VB6.

Donc si quelqu'un pouvait me sortir de cette impasse, ca sera cool!


Merci d'avance

Edit: J'ai résolu le problème en l'exécutant à partir de VB6!!

Voici le code , après suffit de faire un Call de la fonction

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