Sub Macro2()
[COLOR="Green"]' Macro2 Macro
' Macro enregistrée le 05/05/2009 par VBACrumble[/COLOR]
Dim a
a = Array(Array(1, 2), Array(2, 2), _
Array(3, 2), Array(4, 2))
[COLOR="Green"]'--> fige l'écran[/COLOR]
Application.ScreenUpdating = False
[COLOR="Green"]'ouverture fichier[/COLOR]
Workbooks.OpenText _
Filename:="C:\TEMP\eessai.txt", _
Origin:=xlWindows, _
StartRow:=1, _
DataType:=xlDelimited, _
TextQualifier:=xlNone, _
ConsecutiveDelimiter:=True, _
Tab:=True, _
Semicolon:=False, _
Comma:=False, _
Space:=False, _
Other:=False, _
FieldInfo:=a
[COLOR="Green"]'copie dans un nouveau classeur[/COLOR]
ActiveSheet.Copy
[COLOR="Green"]'sauvegarge en XLS[/COLOR]
ActiveWorkbook.SaveAs "C:\TEMP\eessai.xls", xlNormal
[COLOR="Green"]'Fermeture du fichier TEXTE[/COLOR]
Workbooks("eessai.txt").Close False
[COLOR="Green"]'--> "défige" l'écran[/COLOR]
Application.ScreenUpdating = False
End Sub