Sauvegarde auto excel en vba

Bonjour,

j'aimerai faire une sauvegarde automatique d'un classeur excel dans un dossier sauvegarde a la fermeture de celui-ci. quelles sont les commandes en vba?

dans workbook j'ai écris ce qui suit mais ca ne marche pas , carmon fichier ne sauvegarde meme plus

merci de vos conseils



Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.Save

End Sub

Private Sub Workbook_Open()

Dim dateFR As String

Application.ScreenUpdating = False
dateFR = Format(Date, "yyyy/mm/dd")
Application.ScreenUpdating = True

dateFR = Replace(dateFR, "/", "")

Application.DisplayAlerts = False 'Désactive les alertes Excel

ThisWorkbook.SaveAs Filename:="H:\travail\sauvegarde\essai" & dateFR & ".xls"

Application.DisplayAlerts = True 'Active les alertes Excel

End Sub