1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Sub bidon()
'
' bidon Macro
' Macro enregistrée le 28/08/2009 par XXXXX
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\AUBESPIN\Bureau\AF.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, 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)), TrailingMinusNumbers _
:=True
ActiveWindow.SmallScroll Down:=-18
End Sub |
Partager