Supprimer des fichiers anciens en vba

Bonjour à tous,

Je cherche à supprimer des fichiers
Dans le code ci-dessous j'obtiens un message d'erreur

"Boucle sans Do"
Qu'est-ce qui ne va pas avec mon code ?
Quelqu'un peut-il m'aider ?

Merci à tous pour l'aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Function supprim()   Dim filename As String Dim rep As String Dim fichierasupprimer As String rep = "P:\Gestion_RNI_Fichiers_Sauverardés"   filename = Dir(rep & " \*.xlsx ") Do While filename <> " "   fichierasupprimer = rep & "\" & "*.xlsx" If FileDate < Now Then   Kill fichierasupprimer Loop     End Function

---

Bonsoir,

A priori, c'est parce que tu écris ton IF sur DEUX lignes sans mettre un END IF, ce qui fait que VBA pense que le LOOP est pour le IF.
Il faudrait faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function supprim()   Dim filename As String Dim rep As String Dim fichierasupprimer As String rep = "P:\Gestion_RNI_Fichiers_Sauverardés"   filename = Dir(rep & " \*.xlsx ") Do While filename <> " "   fichierasupprimer = rep & "\" & "*.xlsx" If FileDate < Now Then Kill fichierasupprimer End If Loop End Function

---

Pour éviter cela, indentes-correctement tes codes.
De plus, sur le forum, mets tes codes dans les balises correspondantes pour plus de lisibilité : Tu le sélectionnes et tu cliques sur #. Et c'est tout.

Cordialement,

Merci de l'aide, ça fonctionne bien.
Cependant tous les fichiers sont supprimés.
Je souhaite supprimer les fichiers qui ont plus de 7 jours.

J'ai essayé avec

Code:

---

1 2 3

If FileDate < Now -7 Then Kill fichierasupprimer End If

---

et ça supprime tous les fichiers.
Quelle est mon erreur ?

Citation:

---

Envoyé par madefemere

Bonsoir,

A priori, c'est parce que tu écris ton IF sur DEUX lignes sans mettre un END IF, ce qui fait que VBA pense que le LOOP est pour le IF.
Il faudrait faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function supprim()   Dim filename As String Dim rep As String Dim fichierasupprimer As String rep = "P:\Gestion_RNI_Fichiers_Sauverardés"   filename = Dir(rep & " \*.xlsx ") Do While filename <> " "   fichierasupprimer = rep & "\" & "*.xlsx" If FileDate < Now Then Kill fichierasupprimer End If Loop End Function

---

Pour éviter cela, indentes-correctement tes codes.
De plus, sur le forum, mets tes codes dans les balises correspondantes pour plus de lisibilité : Tu le sélectionnes et tu cliques sur #. Et c'est tout.

Cordialement,

---

Bonsoir,

T'es sûre que t'es sous VBA Access parce que je n'arrive pas à utiliser la fonction FileDate que tu as ??
De ce fait, je te propose ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub PetitPoucet(Chemin As String, Modele As String) Dim FSO As Scripting.FileSystemObject Dim sRep As Scripting.Folder Dim sFichier As Scripting.File Dim i As Integer Set FSO = New Scripting.FileSystemObject Set sRep = FSO.GetFolder(Chemin) 'Boucle sur les fichiers For Each sFichier In sRep.Files If (sFichier.Name Like Modele) And (sFichier.DateLastAccessed < DateAdd("d", -7, Date)) Then Debug.Print "resultat : ", i, sFichier.Name, sFichier.DateLastAccessed 'Kill Chemin & "\" & sFichier.Name End If Next sFichier End Sub

---

qui peut être appelé par :

Code:

---

1 2 3

Public Function executer() Call PetitPoucet(CurrentProject.Path, "*.jpg") End Function

---

Code piqué ICI d'après un exemple de Claude Leloup (que je salue s'il passe).

Il ne faut pas oublier de faire référence à Microsoft Scripting Runtime comme indiqué dans la discussion.

Bonne continutaion