Une question concernant la suppression des vieux fichiers.
j'ai constaté que si les 2 plus vieux fichier datent par exemple du 08/09/05 et du 02/10/2005, il supprime celui du 02/10.
de plus, je ne comprend pas à quoi correspond FichSauv
Merci beaucoup
Sub SupPremierFichier()
Dim Dossier As Object, FichSauv As Object
Dim Chemin As String, Nb As Byte
'Chemin du répertoire à analyser (à adapter au besoin, 'C:\\' ou 'D:\\', etc.)
Chemin = ThisWorkbook.Path & '\\SauvegardeFichiers\\'
'Répertoire du classeur contenant les sauvegardes
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFolder(Chemin)
Nb = Dossier.Files.Count
For Each FichSauv In Dossier.Files
If Nb > 7 Then
FichSauv.Delete
Exit Sub
End If
Next
End Sub