Bonsoir le forum,
j'ai un dossier de sauvegarde ne comprenant que des fichiers avec extensions ".xls":
Voici, par exemple, des fichiers contenus dans le dossier :
Frappe le 01-09-12 à 20h40min.xls
Frappe le 01-09-12 à 20h50min.xls
Frappe le 01-09-12 à 21h00min.xls
Frappe le 01-09-12 à 21h10min.xls
Frappe le 02-09-12 à 21h10min.xls
Frappe le 02-09-12 à 21h10min.xls
Frappe le 02-09-12 à 21h10min.xls
Ces fichiers ont la même structure à savoir : Frappe & " le " & "dd-mm-yy " & " à " & "hh""h""mm""min")
Je souhaite supprimer les fichiers "les plus anciens" sur une même date c-à-d dans les exemples de fichiers donnés,
ne conserver que le fichier Frappe le 01-09-12 à 21h10min.xls pour la date du 01-09-12.
J'ai pensé dans un premier temps lister tous les fichiers un par un et les comparer mais je bloque.
Je joint le début de mon travail.
Sub Lister_fichier()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
Chemin = "C:\Users\Patrick\Desktop\Essai macro Excel-Open Office\" 'Chemin du dossier à analyser
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files ' Boucle sur les fichiers présent dans le répertoire
I = I + 1
MsgBox Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)
Next
End Sub
Si quelqu'un peut me faire avancer....
Cordialement