XL 2016 Supprimer les fichiers plus vieux de 3 jours

KTM à dit:

ThisWorkbook.SaveCopyAs chemin & Format( Now, & ThisWorkbook.Name

Cliquez pour agrandir...

job75 à dit:

Bonjour KTM, Efgé,

Placez dans ThisWorkbook :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim chemin$, fichier$, dat$, h$
chemin = ThisWorkbook.Path & "\Save\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
ThisWorkbook.SaveCopyAs chemin & Format(Now, "yyyymmdd hhmmss ") & ThisWorkbook.Name
fichier = Dir(chemin & "*.xls*")
While fichier <> ""
    dat = Mid(fichier, 7, 2) & "/" & Mid(fichier, 5, 2) & "/" & Left(fichier, 4)
    h = Mid(fichier, 10, 2) & ":" & Mid(fichier, 12, 2) & ":" & Mid(fichier, 14, 2)
    dat = dat & " " & h
    If IsDate(dat) Then If Now - CDate(dat) > 3 Then Kill chemin & fichier
    fichier = Dir
Wend
End Sub

A+

Cliquez pour agrandir...