Bonsoir,
Dans mon code VBA, j'ai écrit une procédure (Sauvegarde_quotidienne()) qui enregistre quotidiennement mon fichier Excel dans un répertoire de sauvegarde. Jusque la tout va bien.
Maintenant, j'aimerais qu'en même temps de la sauvegarde, la macro supprime tous les fichiers Excel dont la date du fichier est supérieure a 7 jours (je veux garder que mes 7 derniers fichiers Excel en cas de problème que je n'aurais pas vu dans les 7 derniers jours)
Je connais kill pour supprimer, mais comment lister tous les fichiers, récupérer seulement les extensions .xls, parmi ceux-ci récupérer la date dans le nom de fichier, la comparer avec la date du jour et supprimer les anciens ?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 'Code pour la sauvegarde Public Sub Sauvegarde_quotidienne() Dim Nom_fichier As String Nom_fichier = "C:\sauvegardeXLS\" & Date$ & ".xls" ActiveWorkbook.SaveCopyAs (Nom_fichier) 'sauvegarde End Sub
Partager