Sauvegarde automatique

pat redoue -  
Bonjour,

j'essai de faire une sauvegarde automatise des que je ferme mon fichier sans que excell ne me le demande voila ce que j'ai tente sans succes..

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Active.Workbook.SaveAs Filename:="C:\WINDOWS\Profiles\GA2SACl\Desktop\" & Worksheets("SUMMARY").Range("F8") & today() & ".xls"

End Sub

quelqu'un serait resoudre ce probleme?
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. ddez
    Salut

    essaie ce code : 
    Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.DisplayAlerts = False
    ThisWorkbook.Save

End Sub
    0