j'ai une sub "close" ou je rafraichis tout mon classeur. Elle est régie par
un bouton. Est-il possible aussi d'y associer la petite croix de fermeture en
haut à droite et le shortcut Alt+F4? (je ne veux pas que ca aille directement
à ma sub wkbk before close)...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Christophe,
Dans un module standard : déclare dans le haut de celui-ci la variable suivante :
Public Ferme As Boolean
et la procédure suivante : '------------------- Sub FermerCeClasseur()
Ferme = True ThisWorkbook.Close
End Sub '-------------------
Dans le thisworkbook de ton classeur copie ceci : '----------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Ferme = False Then Cancel = True End If End Sub '-----------------------------
Salutations!
"Christophe B." a écrit dans le message de news:
bonjour,
j'ai une sub "close" ou je rafraichis tout mon classeur. Elle est régie par un bouton. Est-il possible aussi d'y associer la petite croix de fermeture en haut à droite et le shortcut Alt+F4? (je ne veux pas que ca aille directement à ma sub wkbk before close)...
Merci
Christophe.B
Bonjour Christophe,
Dans un module standard : déclare dans le haut de celui-ci la variable suivante :
Public Ferme As Boolean
et la procédure suivante :
'-------------------
Sub FermerCeClasseur()
Ferme = True
ThisWorkbook.Close
End Sub
'-------------------
Dans le thisworkbook de ton classeur copie ceci :
'-----------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Ferme = False Then
Cancel = True
End If
End Sub
'-----------------------------
Salutations!
"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le message de news:
E1B21ECE-DD99-41F1-A6EB-C3FD9C657397@microsoft.com...
bonjour,
j'ai une sub "close" ou je rafraichis tout mon classeur. Elle est régie par
un bouton. Est-il possible aussi d'y associer la petite croix de fermeture en
haut à droite et le shortcut Alt+F4? (je ne veux pas que ca aille directement
à ma sub wkbk before close)...
Dans un module standard : déclare dans le haut de celui-ci la variable suivante :
Public Ferme As Boolean
et la procédure suivante : '------------------- Sub FermerCeClasseur()
Ferme = True ThisWorkbook.Close
End Sub '-------------------
Dans le thisworkbook de ton classeur copie ceci : '----------------------------- Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Ferme = False Then Cancel = True End If End Sub '-----------------------------
Salutations!
"Christophe B." a écrit dans le message de news:
bonjour,
j'ai une sub "close" ou je rafraichis tout mon classeur. Elle est régie par un bouton. Est-il possible aussi d'y associer la petite croix de fermeture en haut à droite et le shortcut Alt+F4? (je ne veux pas que ca aille directement à ma sub wkbk before close)...
