Pb avec Workbook_BeforeClose

Bonjour,

J'ai un classeur 1 qui remplie automatiquement un classeur 2 avec des données. Le classeur 2 ayant certaines macro assez "lourde", j'ai mis dans le ThisWorkbook de celui ci:

Private Sub Workbook_Open()
    With Application
        xlCalc = .Calculation
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .ScreenUpdating = False
    End With

End Sub

Par contre, pour ne pas polluer les autres classeurs, à la fermeture de ce classeur 2, j'ai mis en place:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("plop")
    With Application
        xlCalc = .Calculation
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = False
    End With
End Sub

Cette seconde partie ne fonctionne pas: pas de message "msgbox" et les calculs restent en manuel.

Est ce que j'ai fait une erreur qq-part?

Merci de votre aide,

bonjour,

dans ton workbook open, tu fais un "disable" des events. l'évènement workbook_close n'est donc pas déclenché.

enlève l'instruction application.enableevents=false dans ta macro workbook_open.

C'est effectivement mieux.

Merci beaucoup