Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Piaf79

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Junior
Merci c'est parfait !
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…