Bjr tout le monde ,

J'ai une petite macro qui gère une boucle.
cette boucle va s'exécuter sur différents onglets.
J'aimerai récupérer le nom de l'onglet qui est stocké dans une cellule pour être utilisé dans le code.
Aujourd'hui je crée une macro par onglet ( le nom de longlet est dans le code ) et souhaite faire un marco générique.
ici le nom de l'onglet est 198_187_987
merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub remplissage_cinq_quatre()
 
    Dim i, j, w, m, y As Integer
 
    w = Format(Date, "ww")
 
    m = Format(Date, "mm")
 
    y = Format(Date, "yyyy")
 
    For j = 18 To 29
 
        For i = 4 To 107
 
            If m + 17 = j Then
 
                If w + 2 + (y - 2014) * 52 < i Then
 
                    Worksheets("198_187_987").Cells(j, i).Value = Worksheets("198_187_987").Cells(17, i).Value
                End If
 
            End If
        Next
    Next
 
 
End Sub