1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Sub test()
Dim fichier As String
fichier = ActiveWorkbook.Name
Application.DisplayAlerts = False
On Error Resume Next
Workbooks.OpenText Filename:= _
"\\@_ip_du_serveur\Sauvegarde\fave100.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(2, _
1), Array(6, 4), Array(16, 1), Array(18, 4), Array(27, 1), Array(33, 1), Array(58, 1), Array _
(63, 1), Array(80, 1), Array(94, 1), Array(95, 1), Array(100, 1), Array(113, 1), Array(127, _
1), Array(141, 1), Array(214, 1), Array(246, 1), Array(249, 1), Array(253, 2), Array(260, 2 _
), Array(268, 1), Array(295, 2), Array(302, 1), Array(327, 1), Array(339, 2), Array(371, 1) _
, Array(392, 1), Array(397, 1), Array(399, 4), Array(409, 4), Array(417, 1), Array(441, 1)) _
, DecimalSeparator:=".", TrailingMinusNumbers:=True
If ActiveWorkbook.Name = fichier Then MsgBox "ERR"
On Error GoTo 0
Application.DisplayAlerts = True
End Sub |
Partager