Propriété ou méthode non géré par cet objet

Bonjour à tous,

Voila après moultes tentatives je n'ai pas réussi à régler ce problème où lors de l'exécution j'ai "Propriété ou méthode non géré par cet objet". Si quelqu'un avait une idée de solution? Merci d'avance. Voici mon bout de code,a vec surligné en jaune " Set fnom = fs.GetFiles(Filescom) "

Sub zzzz()
Dim i, chemin, Datefile, Datedoc
Dim fs, fname, fnom As Object

Filescom = "C:\Documents and Settings\p061918\Desktop\Dossier test\1 - Tableaux DT\Test new DT synthese"

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

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fname = fs.GetFile(.FoundFiles(i))
    Set fnom = fs.GetFiles(Filescom)

    Datedoc = CDate(fnom.DateLastModified)
    Datefile = CDate(fname.DateLastModified)
        If Datefile = Datedoc Then
        MsgBox "ok"

End If
Next

End With
End Sub

Bonjour,

A vue de nez, c'est par le que FSO n'a pas de propriété GetFiles.

Tu peux récupérer les fichiers d'un dossier avec la propriété Files de l'objet Folder.

Oui c'est ca merci.