Nombre de classeurs ouverts

D'habitude je récupère le nombre de classeurs ouverts avec l'instruction :

Code:

---

Windows.Count

---

.

Je viens de me rendre compte qu'elle ne donne pas le même résultat si elle est placée dans un module ou dans

Code:

---

Private Sub Workbook_Open()

---

ou dans

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

Savez vous pourquoi?
Avez vous une solution qui marche dans tous les cas?

Merci

PPz

Bonjour

essaye cela :

Code:

---

MsgBox Application.Workbooks.Count

---

comme cela même si tu ouvres plusieurs fenêtres pour un classeur ce ne dérange pas

Citation:

---

Envoyé par wilfried_42

Bonjour

essaye cela :

Code:

---

MsgBox Application.Workbooks.Count

---

comme cela même si tu ouvres plusieurs fenêtres pour un classeur ce ne dérange pas

---

OK mais seulement s'il se contente de ne récupérer que les classeurs de l'instance.

Merci de votre aide, cela marche avec Workbooks.count

Mais pourquoi diable Windows.count donne t-il le bon résultat quand il est dans un Module et un mauvais quand il se trouve dans le code exécuté à l'ouverture du classeur Excel?
En fait j'ai besoin d'avoir le nombre de classeur ouverts dès l'ouverture.

Merci
PPz

Alors fait appel à (avec le ta sub qui compte que tu places dans un module.

Code:

---

1 2 3

Private Sub Workbook_Open() Call ProcedureQuiCompte End Sub

---

Comme ça, tu auras ton nombre à l'ouverture mais sera compté dans un module!

Et tu peux utiliser une fonction si tu veux que le nombre soit renvoyé!

Bonne journée!

Citation:

---

Envoyé par PPz78

Merci de votre aide, cela marche avec Workbooks.count

Mais pourquoi diable Windows.count donne t-il le bon résultat quand il est dans un Module et un mauvais quand il se trouve dans le code exécuté à l'ouverture du classeur Excel?
En fait j'ai besoin d'avoir le nombre de classeur ouverts dès l'ouverture.

Merci
PPz

---

Si tu entends par «dès l'ouverture», «depuis l'ouverture du classeur»,
alors crée une image à l'ouverture du classeur depuis le module ThisWorkbook afin de pouvoir comparer ultérieure

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() Dim x As Long   For x = 1 To Application.Workbooks.Count ReDim Preserve Wks(1 To x) Set Wks(x) = Application.Workbooks(x) Next End Sub

---

appelle ensuite la function suivante (installée dans un module standart) afin d'effectuer la comparaison

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public Wks() As Workbook   Function CompareWorkbooks() Dim wk As Workbook, x As Long, existWk As Boolean For Each wk In Application.Workbooks existWk = False For x = LBound(Wks) To UBound(Wks) If ObjPtr(wk) = ObjPtr(Wks(x)) Then existWk = True: Exit For Next If Not existWk Then MsgBox "Le classeur «" & wk.Name & "» a été ouvert depuis l'ouverture" Next End Function

---

En pratiquant ainsi prendre en compte si des classeurs ont été ouverts et/ou fermés depuis l'ouverture et lesquels.