Sub Ouvrir()
xChemin = "Ton chemin" 'Sans \ à la fin
xFichier = "Ta cellule" '
Workbooks.Open Filename:=xChemin & "\" & xFichier 'Si l'extention du fichier est indiqué dans Ta Cellule
Workbooks.Open Filename:=xChemin & "\" & xFichier & ".xls" 'Si l'extention du fichier N'EST pas indiquée (a adapter)
End Sub