Copier une feuille dans un autre classeur

[Moonseb]

Bonjour à tous ,

Je voudrait copier ma feuille 'Formaté' dans un autre classeur 'Archives'.
Dans le classeur 'Archives' elle doit avoir comme nom la date du jour (de la copie)
et tout ça en VBA hmy:

Est-ce possible ?? :huh:

Merci d'avance.

 

[WILFRIED]

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

 

[Moonseb]

Merci bcp Wilfried

Je teste ca tout de suite.

:woohoo:

 

[Moonseb]

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

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

 

[WILFRIED]

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