Discussion :

[MobyKDIK]

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

[MobyKDIK]

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
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##[,#]" ?

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[MobyKDIK]

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