Ça implique de savoir quelle feuille est à renommer et quel nom on veut lui attribuer.
Pour renommer "Toto" la feuille active c'est ActiveSheet.Name = "Toto". Encore que ça peut planter s'il en existe déjà une de ce nom …
La feuille a renommer sera celle créée avec le bouton créer une feuille et le nom n'est pas fixe
cela dependra de l'operation a effectuer
c'est-a-dire a la place des 1 2 3 …. on doit me proposer de saisir moi meme le nom de la feuille que je veux
Ok super c'est exatement ce que je voulais merci bien
Mais j'aimerai que Le nom de la feuille renommée soit copié dans la colonne "F" de la feuille "LISTE"
Private Sub Workbook_Open()
Dim Wsh As Worksheet
For Each Wsh In Me.Worksheets
If Wsh.Name <> "Accueil" Then Wsh.Visible = xlSheetVeryHidden
Next Wsh
End Sub
Sub Nouvel_onglet() ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = Val(Sheets(ActiveSheet.Index - 1).Name) + 1 End Sub
Bonjour M.Dranreb
Je viens vers vous encore ce matin
Ce code me permet de copier la feuille active pourtant je voulait copier une feuille fixe
c'est-a-dire que chaque fois que je clique sur créer une feuille c'est cette feuille ("BANCAIRE") uniquement qui doit être copier et non la feuille active
ok donc le nouveau code deviens ceci?
Sub Nouvel_onglet() Worksheet.Copy After:=Worksheet
Worksheet.Name = Val(Sheets(Worksheet.Index - 1).Name) + 1
End Sub
Non. Vous trouvez les noms des objets Worksheet dans la rubrique Microsoft Excel Objets du projet VBA dans l'explorateur de projet. Le nom des feuilles qu'ils représentent est rappelé entre parenthèses derrière chacun.
Personnellement je leur redonne toujours un nom mnémonique commençant par Wsh. Mais beaucoup laissent les Feuil1, Feuil2 etc d'origine qui ne veulent rien dire.