Sub Macro1()
Dim Chemin As String
Dim Fichier As String
With Sheets('Feuil1')
Chemin = .Range('A1').Value
Fichier = '\\' & .Range('A2').Value
End With
Workbooks.OpenText Filename:=Chemin & Fichier, _
Origin:=xlMSDOS, _
StartRow:=1, _
DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, xlGeneralFormat), Array(20, xlGeneralFormat), Array(41, xlGeneralFormat))
End Sub