Comment garder le nom des feuilles dans des variables permanentes

[actarus]

Salut,

Je n'arrive pas a garder lenom de mes feuilles d'un fichier excel dans des variables permanentes.

J'ai quelques idées comme declarer n objets sheets et leur affecter le nom de mes n feuilles mais y a t il une meilleur méthode.


merci

jb

 

[Popeye]

Bonjour

Dans un module

Public Type stockage
Nombre As Integer
Nom(1 To 100) As String
End Type

Public feuille As Worksheet
Public mesfeuilles As stockage

Sub gogogo()

mesfeuilles.Nombre = 0
For Each feuille In Worksheets
mesfeuilles.Nombre = mesfeuilles.Nombre + 1
mesfeuilles.Nom(mesfeuilles.Nombre) = feuille.Name
Next
For i = 1 To mesfeuilles.Nombre
MsgBox mesfeuilles.Nom(i)
Next

End Sub

tous les noms de tes feuilles seront stockés dans l'objet Mesfeuilles

 

[actarus]

ca ne marche pas ca me met instruction incorrecte dans la procedure sur Public type stockage

 

[Popeye]

tu as bien mis ca dans un module?????????