créer une variable pour chaque nom de feuille

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:

---

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 :)

Bonjour,

Il me semble qu'il suffit de déclarer Public tes variables

Code:

---

Public Feuille() As String

---

(code à mettre au tout début)

PPz

Dans un module public, déclares ta variable feuille()

Code:

---

Public Feuille() as string

---

et enlève la déclaration de Feuille du workbook.open

bonjour a tous



met ca dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public NbFeuilles As Long Public I As Long Public Feuille() As Variant   Sub listage_des_feuilles() NbFeuilles = ActiveWorkbook.Worksheets.Count   For I = 1 To NbFeuilles   ReDim Preserve Feuille(I) Feuille(I) = ActiveWorkbook.Worksheets(I).Name 'pour la verification listedesfeuille = listedesfeuille & Feuille(I) & Chr(13)   Next I MsgBox listedesfeuille End Sub

---

j ai ajouter un message box a la fin qui te liste les feuilles presentes dans le classeur que tu peux supprimer


et dans le thisworkbook
tu met

Code:

---

1 2 3

Private Sub Workbook_Open() listage_des_feuilles End Sub

---

a partir de la les variables representant les feuilles seront disponibles dans tout le fichier et dans n 'importe quel module a moins que tu les modifies entre temps


au plaisir

merci à vous
je pense que je vais m'en sortir
je vais passer à l'étape suivante ;)