Bonjour à tous,
J'ai le code suivant qui fonctionne lorsque je mets visio dans mes références:
Cependant je ne souhaite pas mettre visio en référence, donc je ne peux pas utiliser le code ci dessus tel quel...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim vsoSelection1 As Visio.Selection Set vsoSelection1 = Vapp.ActiveWindow.Page.CreateSelection(visSelTypeByLayer, visSelModeSkipSuper, "réglage;fond std;traça") Vapp.ActiveWindow.Selection = vsoSelection1 Vapp.ActiveWindow.Selection.Copy
J'ai remplacé
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim vsoSelection1 As Visio.Selection
mais ça ne fonctionne pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim vsoSelection1 As Object
Une petite idée pour m'aider svp?
Partager