Re : Supprimer le contenu d'un dossier avec une macro
Re,
Ci-joint un exemple à tester :
Edit : le code semble pouvoir etre simplifié comme suit (par rapport au fichier attaché) :
(Les espaces dans le nom de fichier ne genent pour la date)
Sub test()
Chemin = ActiveWorkbook.Path & "\Fichiers\"
Fic = Dir(Chemin)
Do While Fic <> ""
Mavar = Split(Fic, "-")
If DateSerial(Mavar(3), Mavar(2), Mavar(1)) < Date - 3 Then Kill Chemin & Fic
Fic = Dir
Loop
End Sub
La version adaptée de mRomain :
Sub test2()
Dim myFso, myFile, myFolder
Chemin = ActiveWorkbook.Path & "\Fichiers\"
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFso.GetFolder(Chemin)
For Each myFile In myFolder.Files
Mavar = Split(myFile, "-")
If DateSerial(Mavar(3), Mavar(2), Mavar(1)) < Date - 3 Then Kill Chemin & myFile.Name
Next myFile
End Sub
Si tu avais le choix, faire un nouveau Post dans le Fil ouvert