Ouvrir le fichier le plus récent d'un répertoire

Bonjour, je débute en vba et j'ai un répertoire qui contient plusieurs fichiers dont des fichiers intitulés "toto_dd_mm_yyyy_hh_mm_ss" avec la date qui change chaque fois qu'un fichier toto arrive dans le dossier.

Quelqu'un aurait une idée pour faire une macro qui ouvre le fichier toto le plus récent svp ? Il n'y a pas nécessairement un nouveau fichier toto chaque jour.

Bonsoir,

ci-dessous exemple de code avec le répertoire "Mes Documents"

Sub ouverture_fichier()
    Dim répertoire As String, fso As Object, dossier As Object, fichier As Object, fichier_à_ouvrir As Object

    'définition du répertoire
    répertoire = CreateObject("Wscript.Shell").SpecialFolders("Mydocuments")

    'assignation du dossier correspondat au répertoire
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set dossier = fso.GetFolder(répertoire)

    'récupération des fichiers du répertoire et sélection du plus récent
    For Each fichier In dossier.Files
      If fichier_à_ouvrir Is Nothing Then Set fichier_à_ouvrir = fichier
      If fichier.DateLastModified > fichier_à_ouvrir.DateLastModified Then Set fichier_à_ouvrir = fichier
    Next fichier

    'ouverture du fichier le plus récent
    Workbooks.Open fichier_à_ouvrir.Path

End Sub