Discussion :

[Megguido21]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[patricktoulon]

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

[unparia]

Bonjour
Déja et de toutes manières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ne saurait avoir un sens