XL 2016 RESOLU/ PowerPivot VBA CurrentPage (modifier filtres via VBA)

merinos

XLDnaute Accro
Bonjour,

Je souhaite modifier un filtre en VBA sur un PIVOT...

Avec les anciens PIVOT pas de probleme on enregistre une macro puis on la modifie...
Avec POWERPIVOT même la macro enregistrée ( sans modification!) ne fonctionne pas.

Comme un petit exemple vaut tous les discours. Je joint un exemple.
La macro doit sélectionner l'officine.


Merci;

Merinos
 

Pièces jointes

  • changer filter PWPVT.xlsm
    167.9 KB · Affichages: 39

merinos

XLDnaute Accro
Merci de la réponse...
Cela fonctionne effectivement...

A condition d'ajouter un "on error resume next"
VB:
Sub Selection()
Dim MaSelect As String

On Error Resume Next

MaSelect = Range("OfficineSelector").Value
ActiveSheet.PivotTables("PivotTable1").PivotFields("[Offines].[officine].[officine]").CurrentPageName = "[Offines].[officine].&[" & MaSelect & "]"

End Sub

J'aime pas les codes pas "propres"... On a une erreur sur cette ligne là ... mais elle fonctionne. :eek::eek:
Il n'y a pas un code "propre"?

Merinos
 

Pièces jointes

  • changer filter PWPVT 2.xlsm
    167.9 KB · Affichages: 36

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla