OVH Cloud OVH Cloud

Copie de feuille

8 réponses
Avatar
CF
Bonjour a tous !

Je cherche d=E9sesp=E9r=E9ment un moyen de copier une feuille=20
appartenant =E0 un fichier excel pour la mettre dans un=20
autre fichier tout en gardant la mise en page initiale=20
etc...=E0 partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqu=E9 ...

Un peut comme le click droit sur une feuille qui fait=20
apparaitre la fen^tre d=E9placer ou copier....

Je sais pas si j'ai bien =E9t=E9 clair !!

8 réponses

Avatar
aife1
Salut !!

Essaie ça (si j'ai bien compris ce que tu veux faire) :
clique droit sur l'onglet de la feuille à copier, "déplacer les feuilles
sélectionées dans le classeur ... " (tu choisis), tu selectionnes "créer une
copie", et voila ... la mise en page, le code VBA ... tout est pareil.

A plus

"CF" a écrit dans le message de
news:151d01c48c31$3012c880$
Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!
Avatar
Xav
Bonjour CF

pour copier plusieurs feuilles d'un même classeur dans un nouveau classeur,
j'utilise

Sheets(Array("feuil1", "feuil2", "feuil3")).Select
Sheets(Array("feuil1", "feuil2", "feuil3")).Copy

@+
--
Xav
"CF" a écrit dans le message de
news:151d01c48c31$3012c880$
Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!
Avatar
ru-th
Salut
soit en vba
Sheets("TaFeuille").Copy
after:=Workbooks("LAutreClasseur").Sheets(Workbooks("LAutreClasseur").Sheets
.Count)
a+
rural thierry
"aife1" a écrit dans le message de news:
#
Salut !!

Essaie ça (si j'ai bien compris ce que tu veux faire) :
clique droit sur l'onglet de la feuille à copier, "déplacer les feuilles
sélectionées dans le classeur ... " (tu choisis), tu selectionnes "créer
une

copie", et voila ... la mise en page, le code VBA ... tout est pareil.

A plus

"CF" a écrit dans le message de
news:151d01c48c31$3012c880$
Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!




Avatar
Merci !

MAis ca marche avec un fichier fermé ?


-----Message d'origine-----
Salut
soit en vba
Sheets("TaFeuille").Copy
after:=Workbooks("LAutreClasseur").Sheets(Workbooks
("LAutreClasseur").Sheets

..Count)
a+
rural thierry
"aife1" a écrit dans le message de
news:

#
Salut !!

Essaie ça (si j'ai bien compris ce que tu veux faire) :
clique droit sur l'onglet de la feuille à
copier, "déplacer les feuilles


sélectionées dans le classeur ... " (tu choisis), tu
selectionnes "créer


une
copie", et voila ... la mise en page, le code VBA ...
tout est pareil.



A plus

"CF" a écrit dans
le message de


news:151d01c48c31$3012c880$
Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!





.




Avatar
isabelle
bonjour CF,

il faut que les fichiers soient ouvert,

Workbooks("zaza1.xls").Sheets("Feuil1").Copy
After:=Workbooks("zaza2.xls").Sheets(Sheets.Count)

isabelle


Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!


Avatar
CF
Merci beaucoup


-----Message d'origine-----
bonjour CF,

il faut que les fichiers soient ouvert,

Workbooks("zaza1.xls").Sheets("Feuil1").Copy
After:=Workbooks("zaza2.xls").Sheets(Sheets.Count)

isabelle


Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!
.





Avatar
CF
VBA ne vet pas compiler.

Il plante sur after:= etc...



-----Message d'origine-----
bonjour CF,

il faut que les fichiers soient ouvert,

Workbooks("zaza1.xls").Sheets("Feuil1").Copy
After:=Workbooks("zaza2.xls").Sheets(Sheets.Count)

isabelle


Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!
.





Avatar
ru-th
Re-

les 2 lignes sont en fait qu'une seule ligne !
de Workbook à sheets.count) en passant par after
les saut de lignes sont intempestifs sous OE

a+
rural thierry
"CF" a écrit dans le message de news:
163b01c48c3f$f692ca60$
VBA ne vet pas compiler.

Il plante sur after:= etc...



-----Message d'origine-----
bonjour CF,

il faut que les fichiers soient ouvert,

Workbooks("zaza1.xls").Sheets("Feuil1").Copy
After:=Workbooks("zaza2.xls").Sheets(Sheets.Count)

isabelle


Bonjour a tous !

Je cherche désespérément un moyen de copier une feuille
appartenant à un fichier excel pour la mettre dans un
autre fichier tout en gardant la mise en page initiale
etc...à partir de VBA.

J'ai vu des trucs ADO, mais c'est trop compliqué ...

Un peut comme le click droit sur une feuille qui fait
apparaitre la fen^tre déplacer ou copier....

Je sais pas si j'ai bien été clair !!
.