Sub test()
'Application.GetOpenFilename ' affiche la boîte de dialogue sans ouvrir
Dim DocChoisi
DocChoisi = Application.GetOpenFilename(("Tous les fichiers Excel (*.xls),*.xls"), 2, "Fichiers à rechercher")
If DocChoisi = False Then
' Traitement si le bouton Annuler a été choisi
MsgBox "Annulé"
Else
' Vérification éventuelle que le fichier choisi est conforme à ce qui est attendu
'
' Ouverture
Workbooks.Open DocChoisi
'MsgBox DocChoisi
End If
End Sub