Lister fichiers pdf VBA Excel date rédaction répertoire

Sub TestListeFichiers()
    Dim Dossier As String

    Dossier = "C:\Documents and Settings\mimi\dossier"

    ListeFichiers Dossier

        Columns("A:E").AutoFit
    MsgBox "Terminé"
End Sub

Sub ListeFichiers(Repertoire As String)

    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Repertoire)

       i = Range("A65536").End(xlUp).Row + 1

       For Each FileItem In SourceFolder.Files

        Cells(i, 1) = FileItem.Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name

        i = i + 1
    Next FileItem

       For Each SubFolder In SourceFolder.subfolders
        ListeFichiers SubFolder.Path
    Next SubFolder

End Sub

bonjour,

je voudrais améliorer ce code pour effectuer une recherche de fichiers enregistrés par leur date de rédaction (JJ/MM/AAAA) et si possible filtrer les résultats pour n'avoir que ceux de l'année 2014 pour chaque sous dossier?

merci d'avance pour vos contributions

Cells(i, 1) = FileItem.Name
Cells(i, 2)=fileitem.DateCreated 

Rajoute ceci,

Si tu veux filtrer, il suffit de mettre un if et de tester la date...

Merci

Pouvez vous me dire a quel endroit dois je rajouter les lignes de code

et comment formuler pour filtrer avec if pour tester la date

Merci d'avance

Non désolé.