Set sh = CreateObject("WScript.Shell")
nomfich=inputbox("inscrivez le nom complet du fichier","ouvrir un fichier","c:\rien.xls")
Set fso = wscript.CreateObject("Scripting.FileSystemObject")
If fso.fileexists(nomfich) Then
sh.Run fso.getfile(nomfich).shortpath
else
msgbox("le fichier " & nomfich & " n'existe pas")
End If
Set fso = Nothing
Set sh = Nothing