J'espère que ce petit bout de code pourra t'aider :
Dos = "chemin d'accès exact au fichier"
Workbooks.OpenText Filename:=Dos _ , Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _ Array(Array(0, 1), Array(4, 9), Array(8, 1), Array(12, 9), Array(13, 1), Array(15, 9), _ Array(16, 1), Array(22, 9), Array(26, 1), Array(37, 9), Array(38, 1), Array(43, 9), Array( _ 44, 1), Array(55, 9), Array(56, 1), Array(66, 9), Array(67, 1), Array(68, 9), Array(69, 1))
|