Re-Bonjour!
Maintenant que mon programme est presque fini, je souhaite le mettre en service, et il me faut un système de sauvegarde automatique, pour cela j'ai repris du code que galopin avait donné sur un autre topic:
Private Sub Workbook_Open()
On Error Resume Next
Run "ZkVer"
'Autres instructions éventuelles...
Worksheets("Demande").Protect , UserInterFaceOnly:=True
Worksheets("Résultats").Protect , UserInterFaceOnly:=True
Call Heure
End Sub
Private Sub ZkVer()
Dim Ext$, R$, Z$, S$, Y As Boolean
S = Day(Now) Mod 7
R = ActiveWorkbook.Name: Ext = Right(R, Len(R) - InStr(R, ".") + 1)
R = Left(R, InStr(R, ".") - 1)
Z = "H:SOS\" & 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 = Truee
End Sub
J'ai bien un dossier SOS sur mon disque H:
Seulement je ne sais comment vérifier si cela fonctionne sans attendre une journée pour voir
Théoriquement, si je ferme le document et le rouvre, il devrait y avoir une copie dans SOS? Actuellement il n'y a rien