Renommer des onglets mensuels

Re-Bonjour,

j'ai fait un nouveau sujet sur un probléme déjà abordé :

J'ai un fichier annuel qui reprend un mois par onglet, soit 12 onglets.

comme il rajoute feuil1, 2 3... à 12 ou plus si on a supprimé un onglet,

pas moyen de savoir le nom de la feuille renommé, sauf peut être avec une variable, pour remplacer mon "new" :

Code: Tout sélectionner

Sheets.Add After:=ActiveSheet

Sheets("new").Select

Sheets("new").Name = "avril"

et j'aimerais bien saisir le texte dans une Msgbox.

merci

bonjour,

essaie ceci

Sheets.Add(After:=ActiveSheet).Name = InputBox("nom de la feuille ?")

Merci h2os04, (attention tu as mis ton mot de passe )

en fait j'ai oublié de demander la recopie des données de la derniére feuille avec.

et il bug sur mon ActiveSheet

'recopie dernier onglet

    Dim mois As String

    Sheets(ActiveSheet).Select
    Cells.Select
    Selection.Copy
Sheets.Add(After:=ActiveSheet).Name = InputBox("mois")
    Range("A1").Select
    ActiveSheet.Paste

bonjour,

voici une manière de faire

    ActiveSheet.Cells.Copy
    Sheets.Add(After:=ActiveSheet).Name = InputBox("mois")
    Range("A1").Select
    ActiveSheet.Paste

tu es un chef h2o2