Sub cherche()
Dim Chemin As String
Chemin = Application.GetOpenFilename("toto*.xls,toto*.xls,Tous,*.*", 1, "Sélection du dossier.")
Chemin = Left(Chemin, InStrRev(Chemin, "\"))
MsgBox Chemin
End Sub
dans la boite de dialogue cliquer sur "date de modification" pour un tri par date
employer chDir pour mettre le chemin de recherche
ex
Code:
Sub cherche()
Dim Chemin As String
ChDir ("C:\toto\tata")
Chemin = Application.GetOpenFilename("toto*.xls,toto*.xls,Tous,*.*", 1, "Sélection du dossier.")
Chemin = Left(Chemin, InStrRev(Chemin, "\"))
MsgBox Chemin
End Sub
Néanmoins j'ai du louper un épisode, car avec ton code je dois choisir le fichier. Or j'aimerais que ce dernier s'ouvre automatiquement. Ci-dessous le code que j'utilisais lorsque le Filesearch existait encore: