Discussion :

[zoumzoum59]

Bonjour à tous

je cherche a savoir si il est possible de connaitre le nombre de classeur ouvert et non masqué, car dans mes classeurs ouvert il y a le classeur perso.xls et des fois un autre classeur masqué d'ouvert, mais je ne voudrais connaitre que le nombre de ceux qui sont visible.

Est ce possible?

Du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim WB As Byte
WB = Workbooks.Visible.Count

Mais ça ne marche pas

Le but et de pouvoir activer alternativement le dernier ou l'avant dernier classeur ouvert et visible.
Merci d'avance.

[Philippe Tulliez]

Bonjour,
Comme ceci peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub T1()
 Dim wkb As Workbook
 For Each wkb In Workbooks
  If wkb.Windows(1).Visible Then Debug.Print wkb.Name
 Next
End Sub

ou comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub T1()
 Dim wkb As Workbook
 For Each wkb In Workbooks
  If Windows(wkb.Name).Visible Then Debug.Print wkb.Name
 Next
End Sub

Ces deux exemples affiche les noms des classeurs visibles dans la fenêtre d'exécution, pour les compter il suffit d'ajouter une variable à incrémenter.