Sub DernierFichier()
Dim Fic As Object, MemFic As String, VPath As String
Dim Fso 'As FileSystemObject
Dim SourceFolder 'As Scripting.Folder
' Initialisation des variables
MemFic = ""
VPath = "C:\Mes documents\Dossier TOTO\"
' Définit le dossier à traiter
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(VPath)
'Liste des fichiers du dossier Sélectionné
For Each Fic In SourceFolder.Files
' Mémorise le dernier fichier selon l'ordre alphanumérique
If Fic > MemFic Then MemFic = Fic
Next Fic
Workbooks.Open MemFic
End Sub