Je voudrais renommer une feuille :mad:

[yanisould]

J’ai un feuil 1 facture, avec un bouton clic qui copier cette feuil en feuil 2.
Ma question et ? Je voudrais a chaque fois que je clic sur le bouton copier, il copier la feuil 1 et il renommé a chaque fois sur un nouveau nom que je donné dans le mémé classeur ?


code: Sheets("Feuil1").Copy After:=Sheets(1)

 

[cbea]

Re : Je voudrais renommer une feuille

Bonsoir yanisould,

Pourrais-tu joindre un exemple dans un fichier ?

Merci

 

[Staple1600]

Re : Je voudrais renommer une feuille

Bonsoir à tous


Tu peux t'inspier des solutions proposées dans ce fil:
https://www.excel-downloads.com/threads/copie-integrale-dune-feuille-numero-augmente-de-1.93258/

 

[yanisould]

Re : Je voudrais renommer une feuil

mon fichier et trop volumineux

 

[yanisould]

Re : Je voudrais renommer une feuille

voila la moitié de mon fichier

 

[cbea]

Re : Je voudrais renommer une feuille

Bonsoir,

Ne possédant pas Excel 2007, je ne peux essayer de t'aider que si tu enregistres ton fichier au format 98-2003.

Merci

 

[ftho]

Re : Je voudrais renommer une feuille

Bonjour tlm,

Quelques exemples qui devraient permettre à yanis de trouver la solution qu'il désire

1. nom prédéfini
   

   Sheets("Feuil1").Copy After:=Sheets(1)
   ActiveSheet.Name = "Toto"

2. nom récupéré dans la cellule B3 de la feuille 1
   

   Sheets("Feuil1").Copy After:=Sheets(1)
   ActiveSheet.Name = Sheets(1).Range("B3")

3. nom récupéré dans la cellule B3 de la feuille 1 + date du jour
   

   Sheets("Feuil1").Copy After:=Sheets(1)
   ActiveSheet.Name = Sheets(1).Range("B3") & " - " & Format(Date, "d.mm.yyyy")