Filtrer TCD en VBA

(re)Bonjour !

Jespère que tout le monde va bien.

J'ai vu q'uil était possible de filtrer un TCD en VBA. J'aimerai que le TCD se filtre par rapport à une valeur de cellulle... J'ai utilisé le code suivant :

Sub macroxx()

Dim result As String

result = Range("D4").Value

ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields("Projet"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique19").PivotFields( _

"Projet").CurrentPage = result

End Sub

Sauf que j'obtiens une erreur..

Merci d'avance aux courageux qui se pencheront sur mon cas ( qui est desepéré ! )

Bonjour,

'ClearAllFilters' s'applique à un objet 'PivotTable'.

Essaie avec 'ClearManualFilter' pour un objet 'PivotField'.

Cdlt.

Bonjour Jean-Eric,

Merci d'avoir repondu

J'ai essayé en changeant par manualfilters mais cela ne change rien..

Je pense que c'est la ligne d'en dessous qui contient une erreur car elle apparait en surbrillance jaune...

"Erreur définie par l'application ou par l'objet" .. :/

Ca me déprime car j'ai adapté la même formule pour d'autres TCD et cela fonctionne.. mais pas pour celui la

Re,

Peux-tu joindre un fichier?

Cdlt.

Voici un fichier test, cela fonctionne sur ce fichier.. mais pas sur le mien !

grrrrrrrr je déprime !

C'est bon j'ai trouvé !!!!!!!!!!!!!!!!!!!!!!!!

En faite dans le nommage de mon PivotFields il y avait un espace juste avant le " affaire" du coup le nom n'était pas bon

Merci Jean Eric

A la prochaine pour de nouvelles aventures !!!!!!!!!!!!!!!!!!!!!!!!!