Evenement "workbook_Activate" ne fonctionne pas

[treza88]

Bonjour a tous,

Je ferme un classeur avec le code suivant:

Dim NbClass As Integer
        NbClass = Application.Workbooks.Count
        If NbClass > 1 Then
 
            ActiveWorkbook.Close SaveChanges:=False
 
            Exit Sub
        Else
            Application.Quit
        End If

Jusque la tout va bien, cependant dans un deuxieme classeur j'ai le code ci dessous qui me permet de reactiver une barre d'outil perso, cependant quand le classeur se ferme le code n'est pas lu, malgres la reactivation du classeur.

Private Sub Workbook_Activate()
 
    On Error Resume Next
 
    If Application.CommandBars("BO").Visible = False Then
 
        Application.CommandBars("BO").Visible = True
 
    End If
 
    If Application.CommandBars("BO").Visible = False Then
 
        Call BO
 
    End If
End Sub

Avez vous une idée du pourquoi du comment cela ne fonctionne pas?

Merci d'avance

 

[pierrejean]

Re : Evenement "workbook_Activate" ne fonctionne pas

Bonjour treza88

Avant toute chose tester en supprimant le
one error resume next

 

[Papou-net]

Re : Evenement "workbook_Activate" ne fonctionne pas

Bonjour treza88,

Ta seconde macro n'est pas très claire : tu testes deux fois de suite si ta commandbar est visible. A quoi cela te sert-il, et que fait la macro "BO" ?

Je serais tenté de te proposer la solution suivante, mais difficile d'être affirmatif sans connaître tous les tenants et les aboutissants :

Private Sub Workbook_Activate()
 
    On Error Resume Next
 
    If Application.CommandBars("BO").Visible = False Then
        Application.CommandBars("BO").Visible = True
        Call BO ' A voir si utile de conserver cet appel
    End If

End Sub

ou plus simplement :

Private Sub Workbook_Activate()
 
    On Error Resume Next
 
    Application.CommandBars("BO").Visible = True

End Sub

Espérant avoir répondu.

Cordialement.

Edit : bonjour pierrejean

 

[treza88]

Re : Evenement "workbook_Activate" ne fonctionne pas

Bonjour pierrejean,

En l'enlevant c'est toujours pareil, et il n'y a aucun message d'erreur, j'avais mis aussi pour tester un stop tout au debut de cette procedure pour verifier que cette procedure etait lu mais le stop n'est pas lu comme si l'evenement ne fonctionnait pas.

 

[treza88]

Re : Evenement "workbook_Activate" ne fonctionne pas

Bonjour Papou-net,

Je teste une premiere fois pour rendre visible ma barre d'outil au cas ou elle aurait ete rendu invisible avant, car quand je change de classeur je la rend invisible donc quand je reviens sur le classeur je la rend visible.
et je test une deuxieme fois car cette barre d'outil sert a plusieurs classeur et donc quand je ferme un classeur qui utilise la barre d'outil je ferme la barre en meme temps donc si je revient sur un classeur qui utilise cette barre, si elle n'a pas été rendu visible par le premier test et quel est toujours invisible, c'est qu'elle a été fermer au paravant et donc avec mon deuxieme test si elle est invisible je la reouvre avec "Call BO".

Voila j'erpere que j'ai expliqué au mieux le fonctionnement de ma procedure.

A part en l'ecrivant autrement pour rendre cela plus clair, mail il faut que je conserve deux test.

Un premier pour la rendre visible si elle est ouverte.
Et un deuxieme pour l'ouvrir si elle a été fermé.