Activer/Desactiver un item de segment ayant pour source des données Powerpivot

Version imprimable

19/05/2015, 12h15
JSFormation

Activer/Desactiver un item de segment ayant pour source des données Powerpivot

Bonjour,

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

Code:

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 :

Citation:

"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.
19/05/2015, 14h11
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
19/05/2015, 15h27
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:

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

Un grand merci pour cette aide précieuse.

JG
30/04/2018, 11h55
_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
30/04/2018, 12h02
78chris

Bonjour

Sans doute mauvais découpage et concaténation...
30/04/2018, 13h35
_TONTON_

Code:

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...
30/04/2018, 14h15
78chris

RE

Code:

ActiveWorkbook.SlicerCaches("Segment_NM_SECTEUR").VisibleSlicerItemsList = Array("[data_rh_real].[NM_SECTEUR].&[" & nom_s & "]")
30/04/2018, 14h21
_TONTON_

Merci bcp c'est parfait...