Sub essai1()
Findes
End Sub
Function Findes()
Dim blah As FileSearch
Dim directory As String
Dim i As Integer, iNewest As Integer
directory = "V:\3B OP\RCHF\VBA Reconcil\Reconciliation ptf\Prix HSBC"
Set blah = Application.FileSearch
With Application.FileSearch
.NewSearch
.Filename = "*.*"
.LookIn = directory
.LastModified = msoLastModifiedAnyTime
.Execute msoSortByLastModified, msoSortOrderDescending
End With
If blah.FoundFiles.Count > 0 Then MsgBox blah.FoundFiles(1)
End Function