Cube OLAP variable

Bonjour forum,

J'ai un cube OLAP qui est liée à une base SQL, elle est monté avec une seul dimension, mais 5 niveau supplémentaire.

Dimension = No Projet
niv 1 = Nom employé
niv 2 = secteur
...

Mon but est que selon le numéro de projet d'une cellule, le cude sort toutes les informations de tous les niveaux supplémentaires liés à ce projet, et de les sortir dans un tableau sur la même feuille.

J'ai déjà essayé avec une simple requête MSQuery, mais ma base de donnée est trop lourde la requête prend 5-6 min d'actualisation.

J'ai essayer de le faire avec l'éditeur de macros, voici ce que ça donne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

ActiveSheet.PivotTables("Tableau croisé dynamique7").CubeFields(1). _ TreeviewControl.Drilled = Array(Array("", "", "", "", "", "", ""), Array( _ "[NoProjet].[Tous].[PP2128]", "", "", "", "", "", ""), Array( _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier]", _ "[NoProjet].[Tous].[PP2128].[Christine Hamel]", _ "[NoProjet].[Tous].[PP2128].[Joannie Dussault]", _ "[NoProjet].[Tous].[PP2128].[Pierre Pilote]", "", "", ""), Array( _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier].[2]", _ "[NoProjet].[Tous].[PP2128].[Christine Hamel].[2]", _ "[NoProjet].[Tous].[PP2128].[Joannie Dussault].[2]", _ "[NoProjet].[Tous].[PP2128].[Pierre Pilote].[2]", "", "", ""), Array( _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier].[2].[2]", _ "[NoProjet].[Tous].[PP2128].[Christine Hamel].[2].[4]", _ "[NoProjet].[Tous].[PP2128].[Joannie Dussault].[2].[4]", _ "[NoProjet].[Tous].[PP2128].[Pierre Pilote].[2].[4]", "", "", ""), Array( _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier].[2].[2].[L3]", _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier].[2].[2].[L5]", _ "[NoProjet].[Tous].[PP2128].[Alain Trépanier].[2].[2].[L9]", _ "[NoProjet].[Tous].[PP2128].[Christine Hamel].[2].[4].[T2]", _ "[NoProjet].[Tous].[PP2128].[Joannie Dussault].[2].[4].[T1]", _ "[NoProjet].[Tous].[PP2128].[Joannie Dussault].[2].[4].[T2]", _ "[NoProjet].[Tous].[PP2128].[Pierre Pilote].[2].[4].[T4]"))

---

Je suis capable de mettre le No projet variable, mais je ne sais pas comment faire pour que la macros sélection touts les niveaux supplémentaires en liés au projet.

Alors si vous avez une solution elle sera la bienvenue.

Merci d'avance