VBA touver dernier fichier créé

Sub chargedata()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

Dim nb_file As Long
Dim file_name As Variant
Dim dossier As Variant
Dim file_date As Long
Dim Sheet_name As String
Dim nb_li As Long
Dim last_li As Long
Dim i As Long
Dim filestr As String
Dim datelng As Long
 
 
 Windows("VBA_RECONCIL.xls").Activate
    Sheets("HSBC").Select
    Cells.Select
    Selection.ClearContents
    
    dossier = "V:\3B ......\ HS"
    
With Application.FileSearch
.LookIn = dossier
.Filename = "*.*"
nb_file = .FoundFiles.Count
MsgBox "Nb Files: " & nb_file

End With



    Application.DisplayAlerts = True
    Application.ScreenUpdating = True


End Sub