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

merinos

XLDnaute Occasionnel
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
 

Fichiers joints

chris

XLDnaute Barbatruc
Bonjour
Code:
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Offines].[officine].[officine]").CurrentPageName = "[Offines].[officine].&[" & MaSelect & "]"
Mais pourquoi pas un segment ?
 

merinos

XLDnaute Occasionnel
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
 

Fichiers joints

merinos

XLDnaute Occasionnel
Cela donne une erreur 1004 dans tous les cas... Mais avec "on error résume next" on passe à travers... Et du coup le PVT est adapté .

Sans cela je n'obtiens que le message d'erreur. Voir la version 2 de mon exemple.
 

chris

XLDnaute Barbatruc
re

J'ai réactivé les mises à jour pour voir : c'est ptet la nouvelle qui bugue, MS nous prenant comme beta testeurs...
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas