Sub test()
Dim CheminComplet As String, NomClasseur As String, Plage As String, NomFeuil As String, Chemin As String
Plage = "$A$1:$B$5" '<-- plage de recherche
NomFeuil = "Feuil1'!" '<-- nom de la feuille, ne pas oublier la simple cote avant le !
NomClasseur = Range("E1") & ".xls" '<-- nom du classeur contenu dans la cellule E1
Chemin = "'D:\Temp\" '<-- emplacement sur le disque dur, ne pas oublier la simple cote avant la lettre de la partition
CheminComplet = Chemin & "[" & NomClasseur & "]" & NomFeuil & Plage
Range("C1").FormulaLocal = "=RECHERCHEV(A1;" & CheminComplet & ";2;FAUX)"
End Sub