Suppression fichiers anciens

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

Salut Patrick,

Une autre idée.

Cordialement

134base.zip (11.63 Ko)

Bonjour Yvouille,

merci pour ton aide.

Cela fonctionne parfaitement, et en plus je peux choisir n'importe quelle extension.

Après traitemen,t je n'ai que les 2 derniers fichiers de conservés mais pas de soucis.

Après l'avoir décortiquée, j'apporterai mes "petits réglages".

Rechercher des sujets similaires à "suppression fichiers anciens"