Bonjour

Je cherche à contrôler les dates de création des fichiers dans un dossier et si celui est trop vieux (ici supérieur à 185 jours) ce fichier est supprimé. Cependant le code ne marche pas... Il m'affiche "erreur de compilation type defini par l'utilisateur non defini", je n'arrive pas à trouve le problème dans le code ci-dessous

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
22
23
24
25
26
27
28
 
Sub Supprime(Repertoire)
 
    Dim Fso As Object
    Dim Fichier As Folder
    Dim FileItem As File
 
 
    Set Fso = New FileSystemObject
 
With Fso
    Set Fichier = Fso.GetFolder(Repertoire)
 
       Cells(1, 2) = Format(Date, "dd-mmmm-yyyy")
 
       For Each FileItem In Fichier.Files
 
         Cells(1, 1) = FileItem.DateCreated
         Columns("A:A").Select
         Selection.NumberFormat = "General"
 
            If (Cells(1, 2).Value - Cells(1, 1).Value) > 185 Then
            FileItem.delete
            End If
 
 
        Next FileItem
End Sub
En vous remerciant par avance pour votre aide