Bonjour à tous
Je reviens sur ce forum pour une petite question cette fois-ci !
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !
Merci