[Macro] Ouvrir le dernier fichier créé

Function DernierFichier(Chemin As String) As String
Dim Fichier As String, DerniereDate As Date
Fichier = Dir(Chemin)
Do While Fichier <> ""
    If FileDateTime(Chemin & Fichier) > DerniereDate Then
        DerniereDate = FileDateTime(Chemin & Fichier)
        DernierFichier = Fichier
    End If
    Fichier = Dir()
Loop
End Function

Sub OuvrirDernierDoc()
Dim Chemin As String
Chemin = "C:\...\...\FichiersRecus\" ' saisir ici le chemin d'accès de ton répertoire
ChangeFileOpenDirectory Chemin
Documents.Open FileName:=DernierFichier(Chemin)
End Sub

    Dim Chemin As String