Qualificateur incorrect

Bonjour à tous,

Je voudrais écrire un code, qui pour chaque fichier excel dans les sous dossier, le programme me ressorte le nom de chaque fichier dans une message box. Mais ce n'est pas important.

Ce qu'il y a dans mon code c'est qu'il me sort : "Erreur de compilation : qualificateur incorrect" au niveau de "chemin = .FoundFiles(i).FullName"

Qu'est ce que ca veut dire (j'ai deja vu d'autre sujet à ce propos mais j'ai pas bien saisi) et comment réparer cela.

Voici le code :

Sub zzzz()
Dim i
Dim chemin

With Application.FileSearch
    ' adresse du répertoire (celui ou se trouve le fichier)
.LookIn = ThisWorkbook.Path
    ' type ou nom du fichier
.Filename = "*.xls"
    ' recherche dans les sous-dossiers
.SearchSubFolders = True
    ' executer la recherche
.Execute

For i = 1 To .FoundFiles.Count

chemin = .FoundFiles(i).FullName

MsgBox "Chemin complet " & chemin
Next
End With
End Sub

Si quelqu'un a une réponse merci d'avance

Tioch

Bonsoir,

Le .FullName ne fonctionne pas avec .FoundFiles(i)

Enlève-le, tu auras le même résultat....

Bonne soirée

-- Lun Juil 04, 2011 11:46 pm --

Ben zut....

ça faisait un moment que je n'étais pas venu, et je vois que les "questionneurs" sont toujours aussi polis....

Tu donnes une réponse, ils cochent "résolu" (sans autre forme de remerciements....)

Eh, les "modos", faudrait voir à éviter de les "harceler", avec ce p*****tain de bouton vert, qui ressemble à un "Enfin......."

Bonne soirée à tous