Créer une variable dont le nom change chaque semaine

Bonjour à tous
Je reviens sur ce forum pour une petite question cette fois-ci :D !
Ma macro est utilisée chaque semaine pour faire la même chose. Entre autre il s'agit de créer une feuille du type S##, pour la semaine en cours.
Ma macro utilise la feuille de la semaine précédente, donc je peux connaître le nombre de la semaine précédente (genre je travaille avec la S29 et je veux créer une S30)

Donc j'ai essayé le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim feuille As Worksheet For Each feuille In wbpre.Worksheets If feuille.Name Like "S##[,#]" Then Set wsprefin = feuille End If Next Set wsnextbrut = wbnext.Worksheets("Tickets et avis") Set wsnextfin = wbnext.Worksheets.Add(After:=wbnext.Worksheets(wbnext.Count)) wsnextfin.Name = "S" + CStr(Val(Mid(wsprefin.Name, 2, Len(wsprefin.Name) - 1)) + 1)

---

la dernière ligne ne passe pas, et je ne trouve pas d'idée pour prendre en compte le nombre d'avant, l'incrémenter et le passer en String.
Vais-je devoir tout décomposer ligne par ligne ?
J'attend vos idées ! :idea:
Merci :hola:

J'ai trouvé !
désolé pour ceux qui ont perdu du temps à cause de moi :(
La formule en question n'était pas mauvaise donc si elle peut servir à d'autres :D
L'erreur provenait d'au dessus, lorsque je cherche la feuille S##
Par contre cela me pose question, pourquoi ne comprend-t-il pas "S##[,#]" comme "S##" Or "S##[,#]" ?

Bonjour MobyKDIK, bonjour le forum,

Nos réponses se sont croisées donc je ne t'apporte pas la solution mais peut-être un code plus simple...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim feuille As Worksheet For Each feuille In wbpre.Worksheets If feuille.Name Like "S##[,#]" Then Set wsprefin = feuille Exit For End If Next num = CInt(Mid(wsprefin, 2)) + 1 Set wsnextbrut = wbnext.Worksheets("Tickets et avis") Set wsnextfin = wbnext.Worksheets.Add(After:=wbnext.Worksheets(wbnext.Count)) wsnextfin.Name = "S" + CStr(num)

---

Je te remercie ^^ Cela donne une autre façon de répondre à la 1ère question