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
Partager