Extraire le numérique d'un onglet en VBA

Bonjour à tous,

J'ai 52 feuilles de calcul nommées S1, S2,......S52.
Dans un formulaire et une zone de texte Tx1, je récupére le nom de l'onglet,
ce qui donne "Statistiques de la semaine : S1", par exemple selon la feuille sur laquelle on est.
Je souhaiterai que le "S" n'apparaisse pas, et je ne peux pas renommer mes feuilles car cela m'obligerai à reprendre toutes mes macros.

Pouvez-vous m'apporter votre éclairage? je vous en remercie par avance.

Code:

---

FrmSit.Tx1 = "Statistiques de la semaine : " & ActiveSheet.Name

---

Bonjour




Essaie ainsi

Code:

---

FrmSit.Tx1 = "Statistiques de la semaine : " & Val(Replace(ActiveSheet.Name, "S", ""))

---

A+

J.L

Bonjour,

tu peux peut être utiliser la fonction mid() pour faire ce que tu veux.
Voici un exemple:

Code:

---

1 2	sName = ActiveSheet.Name NumeroFeuille = Mid(sName, 2, 2)

---

Ce bout de code permet de récupérer juste le numéro de la semaine sans le "S" (variable numerofeuille).
A adapter au besoin. Pour plus d'infos, recherche dans l'aide (F1) la fonction mid()

Cordialement,

Lyonel

Bonjour à vous deux,

Les 2 formules fonctionnent très bien.
Merci beaucoup pour votre aide
A+