Comment garder le nom des feuilles dans des variables permanentes

A

actarus

Guest
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
 
P

Popeye

Guest
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
 

Discussions similaires

Statistiques des forums

Discussions
311 708
Messages
2 081 750
Membres
101 812
dernier inscrit
trufu