fermeture du classeur

[Ludovic]

Bonjour toutes et tous,

Sur ma feuille, j'ai un bouton pour fermer mon classeur. Dans le code de cette même feuille, j'ai une proc Worksheet_Activate ds laquelle je met une variable a True. Dans le module du bouton de fermeture, cette même variable passe a False. Dans ThisWorkbook, Dans la procédure ThisWorkbook_beforeClose, je transfere la valeur de ma variable dans Cancel et je teste Cancel pour valider ou non la fermeture. Quand je Clicke sur la croix de la barre de titre, fermeture impossible, normal, mais si je Clicke sur mon bouton, fermeture impossible également. où est mon erreur? cette soluce vient du maitre Thierry donc très fiable.
Ce lien n'existe plus
Ludovic

 

[myDearFriend!]

Bonsoir Ludovic,

Ci-joint un exemple pour répondre à ta question.

Un bouton sur la feuille avec dans son module de code associé (Feuil1) :

Private Sub CommandButton1_Click()
      Verrou = True
      ThisWorkbook.Close
End Sub

Dans un module de code général (Module1) :

Public Verrou As Boolean

Dans le module de code de l'objet ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Cancel = Not Verrou
End Sub

Cordialement,[file name=PourLudovic.zip size=8400]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourLudovic.zip[/file][/quote]

Message édité par: myDearFriend!, à: 10/06/2005 22:32

 

[Ludivic]

bonjour Didier,le forum
Merci Didier c'est super. Bonne journée.
Ludovic