Sub test()
Dim sPath As String, sFic As String
' Définir le chemin d'accès au fichier
sPath = "T:\DOSSIER\"
' Rétrouver le nom complet du fichier
sFic = Dir(sPath & "*.xls")
' Si un fichier est trouvé, on l'ouvre
If sFic <> "" Then Workbooks.Open Filename:=sPath & sFic
End Sub