Ouverture fichier dans un macro

Sub GetMostRecentFile()
Dim FileSys, objFile, myFolder, strFilename$, dteFile As Date
'set path for files - change for your folder
Const myDir As String = "C:\Temp"
    
'set up filesys objects
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set myFolder = FileSys.GetFolder(myDir)
        
'loop through each file and get date last modified. If largest date then store Filename
    dteFile = DateSerial(1900, 1, 1)
    For Each objFile In myFolder.Files
        If objFile.DateLastModified > dteFile Then
            dteFile = objFile.DateLastModified
            strFilename = objFile.Name
        End If
    Next objFile
    Workbooks.Open strFilename
    Set FileSys = Nothing
    Set myFolder = Nothing
End Sub