Bonjour,
J'ai besoin de faire des copies de sauvegarde automatique de mon fichier (et ce à chaque ouverture de celui-ci)
J'ai trouvé ce scrpit sur le web
Private Sub Workbook_Open()
On Error Resume Next
Run "BU"
End Sub
Private Sub BU()
Dim Ext$, R$, Z$, S$, Y As Boolean
S = Day(Now) Mod 7
R = ActiveWorkbook.Naame: Ext = Right(R, Len(R) - InStr(R, ".") + 1)
R = Left(R, InStr(R, ".") - 1)
Z = "C:NOMFICHIER\" & R & S & Ext
Application.DisplayAlerts = False
If Len(Dir(Z)) = 0 Then
ActiveWorkbook.SaveCopyAs Z
Else
Y = CDate(Left(FileDateTime(Z), 10)) = Date
If Not Y Then ActiveWorkbook.SaveCopyAs Z
End If
Application.DisplayAlerts = True
End Sub
Il me semble très efficace par contre, il fait un enregistrement par jour mais moi j'aurais besoin d'en faire un à chaque ouverture du fichier.
Pouvez-vous m'aider ?
D'avance merci