Extraire des noms de variables depuis les cellules d'une colonne

Bonjour,
J'ai une colonne dans le fichier DATA dans la laquelle se trouve certains noms des onglets du fichier MACRO. Ces noms pourront changer dans le futur et je ne serait pas forcément là pour les changer.
Je cherche à extraire tous les noms ainsi notés dans la colonne pour en faire déterminer des variables Worksheets . Et faire un loop pour ne pas réécrire le code à chaque cellule de ma colonne qui définit un onglet du fichier DATA.

J'ai essayé des choses du genre dans le fichier MACRO.xlsm:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim wbDATA, wbMACRO as Workbook Workbooks.Open ("C:\wbDATA.xlsm") 'Oui je l'ouvre. Set wbMACRO=..... Set wbDATA=.... Dim i as integer Dim ONGLET (1 to a) as Integer Dim wsONGLET (1 to a) as Worksheet For i = 1 to 10 If IsEmpty(Cells(1,i+1))=False Then ONGLET(i)=Cells(1,i+1) wsONGLET(i)= wbDATA.Worksheets(ONGLET(i)) ....

---

Ca plante sur cette dernière ligne. Et Google ne semble pas vouloir m'aider.
Erreur d'exécution 9.
L'indice n'appartient pas à la sélection.

re

1. peut etre par ce que wsONGLET() est une variable tableau et qu'elle n'a pas été dimetionnée en amont
2. peut etre aussi que le sheets( ONGLET(i)) n'existe pas

tu ne prends pas du tout le bon chemin pour faire ce genre de chose
donne quelque exemple de ligne on verra apres

au fait je dis peut etre dans les 2 suggestions en fait c'est ironique c'est certain en fait

Bonjour
Déja et de toutes manières :

Code:

---

Dim wsONGLET (1 to a) as Worksheet

---

fait que le tableau wsONGLET accueille des objets de type Worksheet et donc ni des chaînes de caractères, ni des indexes
et dans ce cas : cette ligne de code :

Code:

---

wsONGLET(i)= wbDATA.Worksheets(ONGLET(i))

---

ne saurait avoir un sens ;)