Copier une feuille dans un autre classeur

WILFRIED

XLDnaute Impliqué

• 7 Juillet 2005

• #2

SAlut,

Oui cela est tout a fait possible :

Copie de la feuille :

- si tu connai le nom de ta feuille :

sheets('nomdefeuille').copy
workbooks('nomdecalsseur').activate
activesheet.paste
activesheets.name=format(date$,'JJ_MM_AAAA')

le format est de type 07_07_2005 car les '-' ou '/' ne sont pas autoriser comme nom d'onglet.

A+ will

 

Vote positif 0 Vote négatif

M

Moonseb

Guest

• 11 Juillet 2005

• #3

Merci bcp Wilfried

Je teste ca tout de suite.

:woohoo:

 

Vote positif 0 Vote négatif

M

Moonseb

Guest

• 11 Juillet 2005

• #4

WILFRIED écrit:

SAlut,

Oui cela est tout a fait possible :

Copie de la feuille :

- si tu connai le nom de ta feuille :

sheets('nomdefeuille').copy
workbooks('nomdecalsseur').activate
activesheet.paste
activesheets.name=format(date$,'JJ_MM_AAAA')

le format est de type 07_07_2005 car les '-' ou '/' ne sont pas autoriser comme nom d'onglet.

A+ will

Cliquez pour agrandir...

Bon je vient d'essayer et ca marche pas.
Dans mon classeur il me met son nom en A1 de la feuille 1 et il m'ouvre un nouveau classeur pour copier ma page et donner le nom de l'ancienne.
Erreur 424
Objet requis

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 11 Juillet 2005

• #5

Salut,

effectivement cela fait la même chose chez moi..

Comme quoi la mémoire peut jouer des tours parfois :

Voici le code qui doit fonctionner :


Sheets('test').Select
Sheets('test').Copy After:=Sheets(1)
ActiveSheet.Name = Format(Date, 'DD_MM_YYYY')

A+ will ;op

 

Vote positif 0 Vote négatif