Microsoft 365 Suppressions anciens fichiers de sauvegarde à la fermeture du fichier

[Piaf79]

Bonsoir le forum,

J'ai un fichier avec le code suivant :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim NomDossier As String
Dim NomFichier As String

NomDossier = "C:\Users\xxx\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_SAUV ACCR TOKYO 2020.xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier


NomDossier = "L:\yyy\vvv\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_SAUV ACCR TOKYO 2020.xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier


NomDossier = "L:\zzz\"
Application.DisplayAlerts = False
NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_SAUV ACCR TOKYO 2020.xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier

End Sub


Dans le dossier : "L:\zzz\" je voudrais simplement garder la dernière sauvegarde (pour les deux autres dossiers ne rien supprimer).
Est-ce possible ?

Merci par avance pour votre aide.

P79

 

[Jacky67]

Dans le dossier : "L:\zzz\" je voudrais simplement garder la dernière sauvegarde (pour les deux autres dossiers ne rien supprimer).
Est-ce possible ?

Merci par avance pour votre aide.

P79

Bonjour,
Pour la partie "L:\zzz\"

 '-----------
    NomDossier = "L:\zzz\"
    On Error Resume Next ' si dossier vide
    Kill NomDossier & "*.*"
    On Error GoTo 0
    Application.DisplayAlerts = False
    NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_SAUV ACCR TOKYO 2020.xlsm"
    ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
    '--------------'

Attention toutefois, il n'y a pas de récupération possible "Kill" c'est "Kill" ; il n'y aura pas de corbeille.

 

[Piaf79]

Bonjour,
Pour la partie "L:\zzz\"

 '-----------
    NomDossier = "L:\zzz\"
    On Error Resume Next ' si dossier vide
    Kill NomDossier & "*.*"
    On Error GoTo 0
    Application.DisplayAlerts = False
    NomFichier = Format(Date, "dd.mm.yyyy") & "_" & Format(Time, "hh.mm") & "_SAUV ACCR TOKYO 2020.xlsm"
    ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
    '--------------'

Attention toutefois, il n'y a pas de récupération possible "Kill" c'est "Kill" ; il n'y aura pas de corbeille.

Merci c'est parfait !