collection d'objet

[PBL]

Bonjour,

Je n'arrive pas à savoir comment déclarer mes fichiers (j'en ai 9 ouvert en permanence) comme membre d'une collection public que j'ai créée.
En plus il faudrait que ces fichiers soient eux-aussi en public.
Quelqu'un peut-il m'aider?

 

[pierrejean]

Re : collection d'objet

bonjour PBL

tester quelque chose du genre:

Public coll As Collection
__________________________
Sub remplirlacollection()
Dim n As Integer
For n = 1 To Workbooks.Count
  coll.Add Workbooks(n).Name
Next n
End Sub

Utilisation:par exemple 

Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = Workbooks(coll(1))
Set wb2 = Workbooks(coll(2))