G
gab
Guest
Bonjour,
J'utilise ce petit code qui ouvre un fichier txt dans Excel en effectuant des manips de format, copie/colle les données dans la feuille 'datas' et ferme le txt.
Le problème, c'est que plus le fichier txt est volumineux, plus cela prend du temps...
N'y aurait-il pas moyen d'optimiser un peu tout ça ? Merci
Application.ScreenUpdating = False
Sheets('all').Range('A2:E30').ClearContents
Workbooks.OpenText FileName:='\\\\rep\\main.txt', Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=True, OtherChar:=';', FieldInfo:= _
Array(Array(1, 2), Array(2, 2), Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1))
Cells.EntireColumn.AutoFit
Workbooks('main.txt').Activate
Cells.Select
Selection.Copy
Windows('MP.xls').Activate
Sheets('datas').Select
Cells.Select
ActiveSheet.Paste
Workbooks('main.txt').Close savechanges:=False
J'utilise ce petit code qui ouvre un fichier txt dans Excel en effectuant des manips de format, copie/colle les données dans la feuille 'datas' et ferme le txt.
Le problème, c'est que plus le fichier txt est volumineux, plus cela prend du temps...
N'y aurait-il pas moyen d'optimiser un peu tout ça ? Merci
Application.ScreenUpdating = False
Sheets('all').Range('A2:E30').ClearContents
Workbooks.OpenText FileName:='\\\\rep\\main.txt', Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=True, Space:=False, Other:=True, OtherChar:=';', FieldInfo:= _
Array(Array(1, 2), Array(2, 2), Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1))
Cells.EntireColumn.AutoFit
Workbooks('main.txt').Activate
Cells.Select
Selection.Copy
Windows('MP.xls').Activate
Sheets('datas').Select
Cells.Select
ActiveSheet.Paste
Workbooks('main.txt').Close savechanges:=False