dim nomfichier, thepath as string
thepath=thisworkbook.path & '\\' ' sauf si c un autre chemin que tu as déjà renseigné
nomfichier='MI_' & inputbox('Veuillez indiquez le nom du fichier à ouvrir',vbokonly)
workbooks.open filename:=thepath & nomfichier