TopNotch63
XLDnaute Nouveau
Bonjour les Exceleurs,
J'aimerais savoir quelle est d'après vous la façon la plus rapide(efficace) pour transférer des données d'un classeur à un autre.
Voici le code que j'ai écrit pour le faire mais pour 10 000 lignes environ ça prend 30 secondes.
Application.ScreenUpdating = False
Windows("Journal10.xls").Activate
Sheets("Liste").Select
Workbooks.Open Filename:="T:\TransfertJournal.xls"
For X = 1 To 55
Windows("TransfertJournal.xls").Activate: Columns(X).Select: Selection.Copy
Windows("Journal10.xls").Activate: Columns(X).Select: ActiveSheet.Paste
Windows("TransfertJournal.xls").Activate: Application.CutCopyMode = False
Next
Windows("TransfertJournal.xls").Activate
ActiveWorkbook.Close
Windows("Journal10.xls").Activate
Sheets("Liste").Select
Range("A1").Select
On peut sûrement faire mieux.
Merci.
J'aimerais savoir quelle est d'après vous la façon la plus rapide(efficace) pour transférer des données d'un classeur à un autre.
Voici le code que j'ai écrit pour le faire mais pour 10 000 lignes environ ça prend 30 secondes.
Application.ScreenUpdating = False
Windows("Journal10.xls").Activate
Sheets("Liste").Select
Workbooks.Open Filename:="T:\TransfertJournal.xls"
For X = 1 To 55
Windows("TransfertJournal.xls").Activate: Columns(X).Select: Selection.Copy
Windows("Journal10.xls").Activate: Columns(X).Select: ActiveSheet.Paste
Windows("TransfertJournal.xls").Activate: Application.CutCopyMode = False
Next
Windows("TransfertJournal.xls").Activate
ActiveWorkbook.Close
Windows("Journal10.xls").Activate
Sheets("Liste").Select
Range("A1").Select
On peut sûrement faire mieux.
Merci.