Récupération d'un nom de feuille

[Goutedo]

bonjour à tous,

je suis un peu perdu, qqn saura-t-il m'aider?

voici mon souci,

dans un classeur il y a plusieurs feuilles nommées SEM 1, SEM 2, SEM 3... et une nommée semaine courante. Dans cette dernière il y a un bouton qui devrait normalement permettre de créer une nouvelle feuille appelée "SEM + (le plus grand nombre +1)".

J'arrive bien à créer une nouvelle feuille, mais comment faire pour récupérer le nom de la feuille qui a le plus grand nombre.

Merci pour votre aide
<b>Goutedo</b>


PS: Voici mon bout de code pour ceux qui voudrait m'aider:

Sub Ajout()
Dim cpt As Integer
cpt = 1
Do While cpt < 2 ' Ajoute 1 feuille
' Ajout d'une feuille
Application.Sheets.Add After:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Renomme la feuille
Application.ActiveSheet.Name = "SEM " & CStr(cpt)
cpt = cpt + 1
Loop
End Sub

 

[Myta]

Salut Goutedo

Essaye ceci :

Sub Ajout()
' Ajout d'une feuille
Application.Sheets.Add before:=Sheets.Item(Sheets.Count), Type:=xlWorksheet
' Renomme la feuille
Application.ActiveSheet.Name = "SEM " & Sheets.Count - 1
End Sub

Mytå

 

[Goutedo]

Ca marche génialement bien

Merci bcp pour ton aide

Goutedo

 

[Goutedo]

Ca marche génialement bien

Merci bcp pour ton aide

Goutedo