Si j'ai bien compris, voila [file name=diskdur.zip size=1488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/diskdur.zip[/file]
Si le but est de récupérer le chemin et le nom du fichier (sans l'ouvrir), tu peux essayer :
'Pour afficher la boîte de dialogue 'Ouvrir' et récupérer le chemin 'du fichier souhaité sans l'ouvrir. Dim Fichier As String
Fichier = Application.GetOpenFilename('Fichier Excel (*.xls),*.xls')
MsgBox Fichier