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