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 : 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
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