J'ai déjà réussi à pointer le dernier fichier du répertoire:
[code]
Private Sub MAJ_DATA()
Dim monrep As String, monfic As String, derdate As Date, ledernier As String
monrep = "répertoire cible"
monfic = Dir(monrep & "*.csv")
derdate = DateSerial(1, 1, 1)
Do While monfic <> ""
If FileDateTime(monrep & monfic) > derdate Then
ledernier = monrep & monfic
derdate = FileDateTime(monrep & monfic)
End If
monfic = Dir
Loop
MsgBox "le plus récent des fichiers csv dans ce répertoire est " & ledernier
End Sub