Bonjour a tous et a toutes je souhaite en effet supprimer des fichiers excels contenu dans un dossier:


Citation:
pour supprimer le contenu :
Code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub SupprContenu()
Dim Fic As String
    Fic = Dir("C:\essai\*.xls")
    Do While Fic <> ""
        Kill "C:\essai\" & Fic
        Fic = Dir
    Loop
End Sub

La différence dans cette procedure c'est que je souhaite supprimer non pas tout le contenu mais uniquement certain nombre de fichier en fonction de leur date. Par exemple si je veux supprimer des fichiers sauvegardé il ya a peu près 2 ou 3 jours comment le faire?

Voici une partie du code que j'ai pu faire:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Workbook_Open()
Dim Chemin As String
Dim fichierTexte As String
Chemin = "\\Ds-srv-hector\commun\DPAPH\Service Tarification\Sauvegarde temps réel\"
 
NomFic = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt"
If Dir(Chemin & NomFic) = "" Then 'si le fichier de la date du jour n'existe pas
 
Call auto_open ' on lance l'effacement
 
Set fs = CreateObject("Scripting.FileSystemObject") 'on crée le fichier date du jour
Set a = fs.CreateTextFile(Chemin & NomFic, True)
a.Close
 
Call creation 'on appelle l'autre proc
 
End If ' Il n'y a pas de sinon puisque si le fichier existe on ne fait rien
 
Call creation 'on appelle l'autre proc
 
End Sub
Merci pour l'aide a toutes les bonnes volontés.