recuperation donnees a partir d'un fichier ferme

Salut tout le monde,

est-ce que quelqu'un peut me dire ce qui ne va pas dans le code ci-dessous, en bref je recherche le fichier le plus recent dans un repertoire puis j'essaie de recuperer des infos contenues dans ce fichier. Je bloque a la derniere ligne, je pense que l'avant derniere ligne de code est fausse. J'ai cherche dans plusieurs anciens posts du forum mais je n'ai pas retrouve de methode similaire a celle que j'utilise, je devine qu'elle n'est pas la plus appropriee

Sub comment()

Dim blah As FileSearch
Dim directory As String
Dim i As Integer, iNewest As Integer

directory = "S:\Portfolio Execution\SWP\House account analysis"

Set blah = Application.FileSearch
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.LookIn = directory
.LastModified = msoLastModifiedAnyTime
.Execute msoSortByLastModified, msoSortOrderAscending
End With
If blah.FoundFiles.Count > 0 Then MsgBox blah.FoundFiles(1)


previouscommentsfile = blah.FoundFiles(1)

MsgBox previouscommentsfile


lastline3 = Application.Workbooks(previouscommentsfile).Sheets("output").Range("A65536").End(xlUp).Row

MsgBox lastline3