Compter le nombre de classeur ouvert et visible

[treza88]

Bonjour a 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:

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.

 

[Paf]

Re : Compter le nombre de classeur ouvert et visible

Bonjour

une solution:

For Each WB In Workbooks
   If Windows(WB.Name).Visible Then Nb = Nb + 1
Next

MsgBox "il y a " & Nb & " classeurs ouverts et visibles sur " & Workbooks.Count

A+

 

[job75]

Re : Compter le nombre de classeur ouvert et visible

Bonjour treza88, Paf,

Il peut y avoir plusieurs fenêtres dans un même classeur...

Dim wb As Workbook, win As Window, n
For Each wb In Workbooks
  For Each win In wb.Windows
   If win.Visible Then n = n + 1: Exit For
  Next
Next
MsgBox "Il y a " & n & " classeurs ouverts et visibles sur " & Workbooks.Count

A+