Sub Recherche()
Dim nombrefichiertrouvé As Integer
Dim Ctr As Variant
Dim chemin() As String
Dim Datecreation() As String
With Application.FileSearch
.NewSearch
.RefreshScopes
.LookIn = "C:\Users\oricha\Documents\Manu\MEG\Travail diplome\Reconcil VBA\Juin\Hsbc"
.Filename = ".xl"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
nombrefichiertrouvé = .FoundFiles.Count
ReDim chemin(nombrefichiertrouvé)
ReDim Datecreation(nombrefichiertrouvé)
For Ctr = 1 To .FoundFiles.Count
chemin(Ctr) = .FoundFiles(Ctr)
Next
End With
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim Fsc As Scripting.File
For Ctr = 1 To nombrefichiertrouvé
Set Fsc = fso.GetFile(chemin(Ctr))
Datecreation(Ctr) = Fsc.DateCreated
Next
Dim plusrecent As String
plusrecent = chemin(1)
For Ctr = 1 To nombrefichiertrouvé - 1
If Datecreation(Ctr + 1) > Datecreation(Ctr) Then
plusrecent = chemin(Ctr + 1)
End If
Next
Dim xclApp As Excel.Application
Dim xclDoc As Excel.Document
Set xclApp = New Excel.Application
With xclApp
.Visible = True
Set xclDoc = .Documents.Open(plusrecent, , False)
End With
End Sub