Bonjour
J'aimerais que à l'ouverture du classeur, ma macro me créé pour chaque feuille présente un variable qui la représente et que je puisse utiliser dans d'autres procédures pour gérer des transferts d'information complexes.
J'ai un début de code qui fonctionne bien jusqu'à la MsgBox, mais je n'arrive pas à conserver les variables.
Voici le code :
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
Private Sub WorkBook_Open()
 
Dim NbFeuilles As Integer
Dim I As Integer
Dim Feuille() As String
 
        NbFeuilles = ActiveWorkbook.Worksheets.Count
        ReDim Feuille(1 To NbFeuilles)
 
        For I = 1 To NbFeuilles
        Feuille(I) = ActiveWorkbook.Worksheets(I).Name
        MsgBox Feuille(I)
        Next I
 
End Sub
Voilà, j'aimerais avoir les variables Feuille1, Feuille2 etc..
Si quelqu'un pouvait m'aider à résoudre mon problème, ça serait super