Compter le nombre de classeur ouvert et visible

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:

---

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.

Bonjour,
Comme ceci peut-être

Code:

---

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:

---

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.