1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
'affecter la macro a la page "x"
Worksheets("x").activate
'recuperer une selection et la couper coller dans un autre classeur
'(suppose que l'autre classeur est dejà ouvert, sinon, faire d'abord :
'Workbooks("c:\...\mon_classeur.xls").open
Selection.Cut
Workbooks("c:\...\destination.xls").Worksheets("nom_feuille").activate
Range("cellule de destination").PasteSpecial xlpasteAll
'faire des selections de 400 lignes
'de même que pour le copier coller mais avec un algo qui dependra de
'l'organisation de ta feuille pour selectionner les lignes a deplacer |