L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Méthodes

Imprimer E-mail
4 mars 2014

Les méthodes les plus utilisées sont les suivantes :

  • Activate pour placer la fenêtre au premier plan.
  • Close pour fermer une fenêtre
  • NewWindow pour créer une nouvelle fenêtre.

L'exemple suivant crée une nouvelle fenêtre, double de la fenêtre active, active la première fenêtre et ferme la nouvelle fenêtre :

Sub Nouvelle_Fenetre()
     ActiveWindow.NewWindow
     Windows(2).Activate
     MsgBox "Vous êtes dans la feuille 1 et la feuille 2 va être fermée"
     Windows(2).Close
End Sub

Propriétés

Imprimer E-mail
4 mars 2014

Je ne vous cite ici que quelques propriétés très utile.

  • La propriété Count vous indique le nombre de fenêtre ouverte :
    Sub Nb_Fenetre()
       Dim Nb As Byte

       For Nb = 1 To Windows.Count
          MsgBox Windows(Nb).Caption
       Next
    End Sub

  • La propriété Caption permet de renommer le titre de la fenêtre, l'exemple suivant renomme la fenêtre active :
    ActiveWorkbook.Windows(1).Caption = "Ma fenêtre"

La collection

Imprimer E-mail
4 mars 2014
Lorsqu'elle est appliquée à l'objet Application, elle représente toutes les fenêtres ouvertes dans Excel, lorsqu'elle est appliquée à l'objet Workbook, elle représente toutes les fenêtre ouvertes du classeur.
Windows(1) représente toujours la fenêtre active.
Pour créer une nouvelle fenêtre, utilisez la méthode NewWindow. La ligne suivante ouvre une nouvelle fenêtre pour le classeur actif :
ActiveWorkbook.NewWindow