Bonjour,
Jai une fonction qui doit me retourner le fichier pdf le plus recent dans un repertoire et dans les sous repertoires :
Public Function recher(Chemin As String)
Dim fich As String
Dim chemCompl As String
Dim newchem As String
Dim datFich As String
Dim Fso As Object, FileItem As Object, oSousRep As Object, objrepInit As Object
Dim Tableau()
Dim m As Integer, i As Integer
Dim z As Byte, Valeur As Byte
Dim Cible As Variant
fich = Dir(Chemin & "\*.pdf")
Do
m = m + 1
ReDim Preserve Tableau(2, m)
Tableau(1, m) = fich
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FileItem = Fso.GetFile(Chemin & "\" & fich)
Tableau(2, m) = Left(FileItem.DateCreated, 8)
fich = Dir
Set objrepInit = Fso.GetFolder(Chemin)
Set oSousRep = objrepInit.SubFolders
recher (oSousRep.Name)<----erreur l'objet ne gere pas cette methode ou cette proprieté
Loop Until fich = ""
Mais j'ai une erreur au moment de l'appel de ma fonction recursive...
Merci de votre aide