Discussion :

[JSFormation]

Bonjour,

J'ai testé le code VBA suivant sur un segment ayant pour source le tableau d'une feuille Excel, cela fonctionne correctement :

Code :

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

ActiveWorkbook.SlicerCaches("Segment_NOM").SlicerItems("Paul").Selected = False

Quand je tente d'éxécuter ce même code ayant pour source des données Powerpivot, cela ne fonctionne pas, j'ai l'erreur :

"Erreur d'éxécution 1004, erreur définie par l'application ou par l'objet"

J'ai bien vérifié le "Nom à utiliser dans les formules" du segment dans les paramètres du segment, et la valeur "Paul" est bien présente.

Ce code est-il disponible sur les segments ayant pour source des données Powerpivot ? Y a t-il une référence à activer ?

Merci pour votre aide.

[78chris]

Bonjour


Oui mais les objets ont d'autres noms : voir #12 de ce fil http://www.developpez.net/forums/d14...ableau-valeurs : j'y ai mis un exemple

[JSFormation]

J'ai pu reformuler ma syntaxe qui fonctionne correctement.
Pour pouvoir effectuer ma selection à travers la source Powerpivot j'ai donc utilisé la syntaxe :

Code :

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

ActiveWorkbook.SlicerCaches("Segment_NOM").VisibleSlicerItemsList = Array("[Tableau1].[NOM].&[PAUL]")

Un grand merci pour cette aide précieuse.

JG

[_TONTON_]

Bonjour le forum,

J'up ce sujet car j'aimerais pouvoir faire en sorte que le "[PAUL]" dans l'exemple présenté ici puisse être variable, mais je me heurte à toute sorte d'erreur que je ne comprends pas.

Merci d'avance

[78chris]

Bonjour

Sans doute mauvais découpage et concaténation...

[_TONTON_]

Code :

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

ActiveWorkbook.SlicerCaches("Segment_NM_SECTEUR").VisibleSlicerItemsList = Array("[data_rh_real].[NM_SECTEUR]. [" & nom_s & "]")

nom_s étant la variable contenant le nom de mon secteur

Je ne vois pas où est le pb et j'ai le message d'erreur suivant : Argument ou appel de procédure incorrect...

[78chris]

RE

Code :

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

ActiveWorkbook.SlicerCaches("Segment_NM_SECTEUR").VisibleSlicerItemsList = Array("[data_rh_real].[NM_SECTEUR].&[" & nom_s & "]")

[_TONTON_]

Merci bcp c'est parfait...