Compter le nombre de classeur ouvert et visible

treza88 · 21 Février 2015

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:

Code:

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 · 21 Février 2015

Re : Compter le nombre de classeur ouvert et visible

Bonjour

une solution:

Code:

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 · 21 Février 2015

Re : Compter le nombre de classeur ouvert et visible

Bonjour treza88, Paf,

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

Code:

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+

Compter le nombre de classeur ouvert et visible

treza88

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Compter le nombre de classeur ouvert et visible

treza88

XLDnaute Occasionnel

Paf

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency