Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

copier une feuille d'un classeur ouvert ds un autre lui aussi ouvert

2 réponses
Avatar
chris col
** 2 Classeurs (class1.xls et class2.xsl) sont ouverts.
** class1.xls est actif
** il faut copier toute la feuille active de "class1.xls"
dans la "feuil1" de "class2.xls"

comment simplifier, SVP, le code suivant: (Excel97)

********************
Cells.copy
windows("class2.xls").activate
activesheet.paste

windows("class1.xls").close savechanges:=false

range("A1").select

*********************
(en particulier les 3 premières lignes)

2 réponses

Avatar
anonymousA
bonjour,

with Workbooks("tutu.xls")
.Worksheets(1).Cells.Copy workbooks("tata1.xls").Worksheets(1).Cells
.close savechanges:úlse
end with
Workbooks("tata1.xls").worksheets(1).range("A1").select

A+

** 2 Classeurs (class1.xls et class2.xsl) sont ouverts.
** class1.xls est actif
** il faut copier toute la feuille active de "class1.xls"
dans la "feuil1" de "class2.xls"

comment simplifier, SVP, le code suivant: (Excel97)

********************
Cells.copy
windows("class2.xls").activate
activesheet.paste

windows("class1.xls").close savechanges:úlse

range("A1").select

*********************
(en particulier les 3 premières lignes)




Avatar
chris col
ok, super

Merci