Discussion :

[Logimar]

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

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

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

[gigmar03]

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

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If FileDate < Now -7 Then
          Kill fichierasupprimer
     End If

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

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 :

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

[madefemere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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