Il faut aller dans ThisworkBook, choisir WorkBook au lieu de général. L' événement BeforeClose se choisit à droite.
JB
michdenis
Bonjour Jean-Luc,
tu devrais pouvoir le faire par un module de classe.
Dans la fenêtre VBE, insère un module de classe à ton projet et copie ceci :
En utilisant la fenêtre des propriétés, Modifie le "Nom" du module pour App
'Haut du module de classe, définir la variable Public WithEvents App As Application
'---------------------- Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) 'à chaque fois que tu vas fermer un classeur, cette procédure 'va s'exécuter ... à toi de définir le code approprié. MsgBox "ok"
End Sub '----------------------
Maintenant dans le ThisWorkbook de ton classeur, copie ceci :
'Haut du ThisWorkbook Dim MonXL As New App '------------------------ Private Sub Workbook_Open() Set MonXL.App = Application End Sub '------------------------ Exécute la procédure workbook_open, et observe ce qui se passe quand tu fermes un classeur quelconque.
Salutations!
"Jean-Luc CAPEL" a écrit dans le message de news: Bonjour à tous, qqun serait il me dire comment déclarer en VBA l'événement de fermeture d'un classeur qqil soit (et non d'un classeur particulier).
D'avance merci JLuc
Bonjour Jean-Luc,
tu devrais pouvoir le faire par un module de classe.
Dans la fenêtre VBE, insère un module de classe à ton projet
et copie ceci :
En utilisant la fenêtre des propriétés, Modifie le "Nom" du module
pour App
'Haut du module de classe, définir la variable
Public WithEvents App As Application
'----------------------
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
'à chaque fois que tu vas fermer un classeur, cette procédure
'va s'exécuter ... à toi de définir le code approprié.
MsgBox "ok"
End Sub
'----------------------
Maintenant dans le ThisWorkbook de ton classeur, copie ceci :
'Haut du ThisWorkbook
Dim MonXL As New App
'------------------------
Private Sub Workbook_Open()
Set MonXL.App = Application
End Sub
'------------------------
Exécute la procédure workbook_open, et observe
ce qui se passe quand tu fermes un classeur quelconque.
Salutations!
"Jean-Luc CAPEL" <jlcapel@ifth.org> a écrit dans le message de news: uc2uTJ83FHA.3628@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
qqun serait il me dire comment déclarer en VBA l'événement de fermeture d'un
classeur qqil soit (et non d'un classeur particulier).
tu devrais pouvoir le faire par un module de classe.
Dans la fenêtre VBE, insère un module de classe à ton projet et copie ceci :
En utilisant la fenêtre des propriétés, Modifie le "Nom" du module pour App
'Haut du module de classe, définir la variable Public WithEvents App As Application
'---------------------- Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) 'à chaque fois que tu vas fermer un classeur, cette procédure 'va s'exécuter ... à toi de définir le code approprié. MsgBox "ok"
End Sub '----------------------
Maintenant dans le ThisWorkbook de ton classeur, copie ceci :
'Haut du ThisWorkbook Dim MonXL As New App '------------------------ Private Sub Workbook_Open() Set MonXL.App = Application End Sub '------------------------ Exécute la procédure workbook_open, et observe ce qui se passe quand tu fermes un classeur quelconque.
Salutations!
"Jean-Luc CAPEL" a écrit dans le message de news: Bonjour à tous, qqun serait il me dire comment déclarer en VBA l'événement de fermeture d'un classeur qqil soit (et non d'un classeur particulier).
