Pb de rafraîchissement avec un .FileSearch

[nougitch]

Bonjour,

Je fais un .FileSearch mais lorsque j'ajoute ou supprime des fichiers de mon dossier, le .FoundFiles.Count me met toujours la quantité de fichier initiale. Ce qui fait que pour la suite de mon traitement, ça bloque

Voici mon code :

    With Application.FileSearch
        .LookIn = MyDir
        .LookIn = "C:\Test\"
        .Filename = "*.xls"
        MsgBox .FoundFiles.Count
        ReDim MyTable(.FoundFiles.Count)
        For i = 1 To .FoundFiles.Count
            If Mid(Right(.FoundFiles(i), 31), 12, 4) = 2008 Then
                MyTable(j) = .FoundFiles(i)
                j = j + 1
            End If
        Next i
    End With

Merci par avance pour votre aide.
Cdt,

 

[nougitch]

Re : Pb de rafraîchissement avec un .FileSearch

C'est bon, dsl !
J'avais oublié de mettre un .NewSearch !
++

 

[nougitch]

Re : Pb de rafraîchissement avec un .FileSearch

En fait non, cela ne marche pas ! Il m'a rafraîchi une fois le .FoundFiles.Count et maintenant ne veut plus changer.
Qqun aurait une idée svp ?
Merci par avance.