Discussion :

[PPz78]

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

Code :

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

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 :

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

Private Sub Workbook_Open()

ou dans

Code :

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)

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

Merci

PPz

[wilfried_42]

Bonjour

essaye cela :

Code :

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

   MsgBox Application.Workbooks.Count

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

[DarkVader]

Bonjour

essaye cela :

Code :

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

   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.

[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

[drakkar_agfa]

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

Code :

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

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!

[DarkVader]

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 :

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

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 :

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

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.