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

Piaf79 · 26 Mai 2021

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 · 27 Mai 2021

Piaf79 à dit:
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\"

VB:

 '-----------
    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 · 27 Mai 2021

Jacky67 à dit:
Bonjour,
Pour la partie "L:\zzz\"

VB:

'----------- 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 !

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

Piaf79

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Piaf79

XLDnaute Junior

Discussions similaires