Workbook_Deactivate() et fermeture classeur

[Jam]

Bonjour à tous,

J'ai un petit problème que j'ai du mal à contourner.
J'utilise l'événement Workbook_Deactivate() pour masquer mon classeur de la façon suivante:

Private Sub Workbook_Deactivate()
    Windows(ThisWorkbook.Name).Visible = False
End Sub

Mon p'tit problème est que lorsque je veux quitter le classeur, cet évènement se déclenche, le classeur est donc masqué, et la fermeture ne peut s'effectuer. Le plus drôle 🙁 , mais c'est un détail ici, c'est que le menu Quitter d'Excel devient grisé et que je ne peux même pas quitter Excel !
Bref, je cherche une alternative: quel autre évènement est plus approprié ou comment éviter qu'il se déclenche en cas de fermeture du classeur. Une sympathique proposition serait la bien venue.
Merci d'avance.

 

[Pierrot93]

Re : Workbook_Deactivate() et fermeture classeur

Bonjour,

petite question idiote sans doute, mais pourquoi as tu besoin de rendre le classeur invisible et justement lors de sa "désactivation"....

bonne journée
@+

 

[Jam]

Re : Workbook_Deactivate() et fermeture classeur

Salut Pierrot,

En fait il s'agit d'un classeur qui reste ouvert toute la journée, qui me permet d'interroger une BDD (via un bouton dans une Barre d'outils) et qui renvoi le résultat dans le classeur. Comme je ne veux pas passer mon temps à fermer/ouvrir ce classeur, je le masque dès que je bascule sur un autre classeur.

 

[Pierrot93]

Re : Workbook_Deactivate() et fermeture classeur

Re,

regarde peut être ceci, en utilisant une variable publique "booléenne" dans l'événement
"BeforeClose" du classeur :

Option Explicit
Dim b As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
b = True
End Sub
Private Sub Workbook_Deactivate()
If b Then Exit Sub
'ton code
End Sub

@+

 

[Jam]

Re : Workbook_Deactivate() et fermeture classeur

Merci Pierrot,

Ok, je prends.

Bonne journée