Fermeture d'un classeur par macro

[sten83]

Bonjour, j'ai plusieurs classeurs qui possèdent des boutons macro pour revenir au menu principal hors certaine personnes ferme les classeurs par le biais de la croix en haut à droite de la feuille. Y a t-il un moyen pour les obliger à fermer avec le bouton macro

 

[sousou]

Re : Fermeture d'un classeur par macro

Bonjour
Tu peux utiliser le beforclose de workbook pour effectuer la même macro

 

[MJ13]

Re : Fermeture d'un classeur par macro

Bonjour Sten, Sousou

Tu peux tester ce code à mettre dans Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[sten83]

Re : Fermeture d'un classeur par macro

Bonjour Michel, Excuse moi mais j'ai mal formuler ma question en fait le bouton macro sert au retour vers le menu mais aussi a créer une copie de sauvegarde, donc si les utilisateurs ne ferme pas avec le bouton macro la feuille active, la sauvegarde ne s’effectue pas.

 

[Pierrot93]

Re : Fermeture d'un classeur par macro

Bonjour,

avec une variable "public" de type "boolean" que tu mets à "true" dans le code de ton bouton et cette procédure événementielle dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not b Then Cancel = True
End Sub

bon après midi
@+

Edition : bonjour à tous, un peu en retard moi....

 

[sousou]

Re : Fermeture d'un classeur par macro

Re
Quelque chose comme cela
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call (tonboutton_click)
Cancel = True
End Sub

 

[sousou]

Re : Fermeture d'un classeur par macro

Un peu plus précis...

Dans ta feuille en supprimant private
Sub CommandButton1_Click()
MsgBox "toto"
End Sub

Dans le classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Feuil1.CommandButton1_Click
End Sub

 

[sten83]

Re : Fermeture d'un classeur par macro

Merci pour la reponse