[RESOLU]Macro pour ouvrir nvlle feulle et la renomer

[spyki]

Bonsoir tout le monde!

je viens à vous pour vous demander de l'aide (je commence à peine avec les macros)

je cherche une macro que ouvre une nouvelle feuille (jusque là c'est bon)
qui la renomme avec la suite feuille 3 nvlle feuille renommée feuille 4 (je ne trouve pas)
enlever protection et la remettre
mieux explique sur l'exemple

fichier exemple joint

merci de votre aide

 

[Grand Chaman Excel]

Re : Macro pour ouvrir nvlle feulle et la renomer

Bonjour,

Voici un code que tu pourras adapter...

Sub NouvelleFeuille()
'Recopie la dernière feuille et la renomme
Dim ws As Worksheet
Dim Nom As String, Numero As Integer

Set ws = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Nom = Split(ws.Name, " ")(0)            '= Feuille
Numero = Split(ws.Name, " ")(1)         '= numéro

ws.Copy after:=ws       'on copie à la fin
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Nom & " " & Numero + 1    'on renomme la dernière feuille
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Unprotect    'on enlève la protection
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Range("A1").Select       'position en A1
ThisWorkbook.Save   'sauvegarder

End Sub

A+