Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fermeture d'un classeur par macro

  • Initiateur de la discussion Initiateur de la discussion sten83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sten83

XLDnaute Occasionnel
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
 
Re : Fermeture d'un classeur par macro

Bonjour Sten, Sousou

Tu peux tester ce code à mettre dans Thisworkbook:

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub
 
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.
 
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" :
Code:
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....
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
885
L
Réponses
10
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…