Bonjour et bonne année à toute la communauté

J'ai une petite question pour vous
Dans une macro composé de 50 feuilles, j'ai besoin, pour chacune d'elles, de récupérer une information dans une cellule précise (J3) dans chaque feuille et de les nommer de cette manière

J'ai donc créé une boucle afin d’incrémenter automatiquement mes noms de feuilles.... Mais j'ignore comment coder correctement cette partie

Dans un module j'ai écrit

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
Dim Nom As String
Dim Feuille As Integer
Dim i As Integer
 
Feuille = 1
    For i = 0 To 50
            Nom = Feuil(Feuille).Range("J3")
           Feuil(Feuille).Name = Nom
        Feuille = Feuille + 1
    Next i
End Sub
Comme vous pouvez le constater, la partie du code "Feuil(Feuille)", n'est pas accepté par Excel

Quoi faire

Merci