sauvegarde auto

Le
man77 Hors ligne
Bonjour, Bonjour,

De nouveau besoin d'aide.
Après plusieurs tests ça ne fonctionne pas.
Peux-tu m'aider stp :

Sub sauvegarde()

Repertoire = "R:Technique-MaintenanceSauvegarde"
nom = "Sauvegarde de " & ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy") & ".xls"
If Dir(Repertoire, 16) = "" Then
MkDir Repertoire
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
'-
Fichier = Dir(Repertoire)
If Date - CDate(Left(Right(Fichier, 23), 10)) >= 90 Then
If MsgBox("La date de sauvegarde de votre fichier est périmée." & vbLf & "Voulez-vous procéder à une nouvelle sauvegarde", 292, "Information") = 6 Then
Kill Repertoire & Fichier
ThisWorkbook.SaveCopyAs Repertoire & nom
End If
Else
[e13] = "Il reste " & 90 - (Date - CDate(Left(Right(Fichier, 23), 10))) & " jour(s) avant la prochaine sauvegarde AUTO "

End If
End Sub

Le problème est au niveau de cdate et du Kill
Merci et @++
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme