1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Sub test()
Dim Tablo(100,2) as Variant
'ici tu remplis la variable Tablo
Workbooks.OpenText Filename:= _
"C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\Classeur3.txt", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)) _
, TrailingMinusNumbers:=True
With ActiveWorkbook.Sheets(1)
.[B3].Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
Application.DisplayAlerts = False
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End With
End Sub |
Partager