bonsoir,
Pourquoi "les" fichiers sont ils dans le désordre puisque il n'y en a qu'un qui est le dernier...
Essaie :
Sub LastDFile()
Dim Rep$, Fichier$, tmp#, mem$
Dim i%
Rep = "D:\Downloads\" 'changer le chemin
Fichier = Dir(Rep)
Do While Fichier <> ""
If CDbl(FileDateTime("D:\Downloads\" & Fichier)) > tmp Then
tmp = CDbl(FileDateTime("D:\Downloads\" & Fichier))
mem = Fichier
End If
Fichier = Dir
Loop
Workbooks.Open "D:\Downloads\" & mem
End Sub
Nota : Crosposting code conservé pour archive.
A+