WorkBook beforeClose ne s'execute pas

Bonjour à tous,
j'ai dans le module 4 de mon fichier la macro ci_dessous.
Elle ne s'exécute pas à la fermeture du fichier mais fonctionne en lancement manuel.

Code:

---

1 2 3 4 5 6

Private Sub Workbook_BeforeClose()   ActiveWorkbook.SaveAs Filename:= _ "C:\Users\ATA\SkyDrive\Documents\carco aérotech sql_" & Format(Date, "dd_mm_yyyy") & "_" & Format(Time, "hh_mm_ss") & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True End Sub*

---

Merci pour votre aide.

AT

Code:

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

ou

Code:

---

Private Declare ptrsafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

Si win64


Et

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_BeforeClose()   ActiveWorkbook.SaveAs Filename:= _ "C:\Users\ATA\SkyDrive\Documents\carco aérotech sql_" & Format(Date, "dd_mm_yyyy") & "_" & Format(Time, "hh_mm_ss") & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True Sleep 5000 End Sub

---

Bonjour, bonjour,

normal qu'une macro évènementielle "classeur" ne s'exécute pas dans un simple module ‼

Elle doit donc se situer dans le module de classe ThisWorkbook …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Désolé mais je n'ai pas de module de classe ThisWorkBook; Dois-je en créer un?

Il est en bas de tes feuilles..

En fait j'ai déjà collé la macro dedans mais à la fermeture du fichier j'ai un message d'erreur:
"la déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure du même nom"

Supprimes ta procédure et écris-la ici

Voilà ce que j'ai à l'écran en PJ

Remplace
Private Sub Workbook_BeforeClose()
Par:

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

Bingo tout fonctionne.
Merci à tous.

AT

Je pense que l'image que j'ai envoyée est assez explicite