[Macro] Ouvrir le dernier fichier créé

Bonjour Kona,
voilà une fonction qui détermine le fichier le plus récent d'un répertoire donné.
en dessous, une procédure qui ouvre le fichier le plus récent (en faisant appel à la fonction).
Après, à toi d'intégrer ça dans ta macro d'enregistrement.
A suivre...

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

bonjour,
petite erreur dans la déclaration de la variable
la ligne

    Dim Chemin As String

doit être en tête du module (tout au dessus)
A+

C'est exact.
Merci lermite 222 pour cette correction.
I.