Copier et renommer l'onglet actif

[diabolo]

Sheets(1).Select
Sheets(1).Copy
Copie la 1er feuille d'un classeur dans un nouveau classeur

Sheets('Feuill (2)').Name = 'Lundi'
Renomme l'onglet 'Feuill (2) en 'Lundi' sur le même classeur.

Sheets('Feuil1').Name = Sheets('Feuille X').Range('A1').value
Renomme 'Feuill1' en fonction de la valeur de la cellule A1 d'un onglet choisi.

Quel est la commande avec Sheets qui prend en compte l'onglet sélectionné, le copie et le renomme ?

J'ai essayé ActiveSheets mais cela n'active une feuille que si elle est nommée, ActiveSheets ('planning') par exemple.
Merci d'avance.

 

[pierrejean]

bonjour diabolo

essaie:

Sub test()
ActiveSheet.Copy
ActiveSheet.Name = 'copie'
End Sub

tu te retrouveras dans un nouveau classeur sur un feuille nommée copie et qui sera la copie de la feuille d'ou tu es parti

 

[diabolo]

ça marche. J'ai modifié comme suit :
ActiveSheet.Name = Range('A1').Value
à la place de
ActiveSheet.Name = 'copie'
Et cela me renomme en fonction d'une cellule.
Merci beaucoup.
diabolo