VBA enregistrement automatique d'une copie de classeur

Bonjour,

je souhaite faire une copie en automatique de mon classeur toutes les 1heures dans un emplacement bien spécifique sur le reseau

ex: la copie se fera a l'adresse : H:\Documents\Gildas\Save

Ma formule pour le moment :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim strFileName As String

strFileName = ThisWorkbook.FullName & "_" & Format(Year(Now), "0000") & Format(Month(Now), "00") & Format(Day(Now), "00") & ".bak"

ThisWorkbook.SaveCopyAs strFileName

SetAttr strFileName, vbHidden

End Sub

Merci d'avance pour vos suggestions.

Bonjour,

modification de ma demande je souhaite uniquement définir un emplacement pour ma sauveagrde automatique.

ex: c:\Bureau\gildas\save

Ma formule qui fonctionne :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim strFileName As String

strFileName = ThisWorkbook.FullName & "_" & Format(Year(Now), "0000") & Format(Month(Now), "00") & Format(Day(Now), "00") & Format(Hour(Time), "00") & Format(Minute(Time), "00") & Format(Second(Time), "00") & ".bak"

ThisWorkbook.SaveCopyAs strFileName

SetAttr strFileName, vbHidden

End Sub

Reste plus qu'a intégrer la destination que je n'arrive pas a faire.

Merci d'avance.