Discussion :

[alexis trotta]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Si win64


Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[alexis trotta]

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

[EngueEngue]

Il est en bas de tes feuilles..

[alexis trotta]

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"