VBA Visio 2000 - Activation de page [FAQ] [Résolu]

[ChristopheLBP]

Bonjour,

Je souhaite activer la page de mon schéma Visio après génération automatique du gabarit.

Code :

1
2
3
4
5
6
 
Public Sub OuvrirGabarit()
 
            TmpFile = Gabarit.ChargeBLOB()
            Set stnObj = Documents.Open(TmpFile)
End Sub

J'ai essayé de faire

Code :

SendKeys "^" & "{TAB}"

juste après

Code :

Set stnObj = Documents.Open(TmpFile)

mais sans succès.
J'ai également voulu essayé les méthodes

Code :

ActiveWindow.Select

et

Code :

ActiveWindow.Activate

mais celle-ci sont au shape et non au page.

Je vous remercie de bien vouloir m'aider.

Cordialement,
Christophe

[ChristopheLBP]

J'ai trouvé la réponse à ma question il suffit de mettre :

Code :

ThisDocument.Application.Windows(ThisDocument.Index).Activate

après

Code :

Set stnObj = Documents.Open(TmpFile)