Filtre dynamique tableau croisé

[mic41]

Bonjour tout le monde,

Je souhaiterais actualiser les données contenues dans un TCD a partir de la valeur contenue dans une cellule (cette valeur se trouve sur une autre feuille que celle où se trouve le TCD).

J'obtiens cependant cette erreur : erreur d'execution 1004 definie par l'application
je n'arrive pas a trouver l'origine de ce defaut donc je me tourne vers vous afin de savoir si quelqu'un a deja eu le meme problème dans le passé.

Voici le code utilisé :

Dim periode As String
Dim champ As String

periode = Sheets("Formulaire").Range("C1").Value
champ = Sheets("BD").Range("D1").Value

Sheets("TCD").Activate
Set PT = Sheets("TCD").PivotTables("Tableau croisé dynamique1")

With PT
.PivotCache.Refresh
.PivotFields(champ).CurrentPage = "(All)"
.PivotFields(champ).CurrentPage = periode
End With

Le debogage indique que l'erreur se trouve au niveau du :
.PivotFields(champ).CurrentPage = periode

Merci d'avance pour vos lumières car là je cale!

 

[Pierrot93]

Re : Filtre dynamique tableau croisé

Bonjour,

A voir ce que vaut la variable "periode" lors du débogage... si c'est une date modifie peut être ainsi...

periode = Sheets("Formulaire").Range("C1").Text

peut être aussi voir avec la fonction "cdate"...

sans plus de détails difficile d'en dire plus..

bonne journée
@+

 

[mic41]

Re : Filtre dynamique tableau croisé

Bonjour Pierrot,

effectivement, la variable periode correspond a une date (formule aujourdhui dans la cellule C1)
Je viens a l'instant d'essayer avec la syntaxe que tu as proposé mais j'obtiens la même erreur.

En ce qui concerne la variable PT (je ne l'ai pas indiqué dans mon post d'hier), elle est déclarée de cette manière :

Dim PT As PivotTable

Au travers des différents forums que j'ai pu parcourir, j'ai constaté que l'erreur a laquelle je suis confrontée n'est pas forcément due a la syntaxe utilisée (car ma macro a fonctionné pendant un temps).

Je vous joins mon fichier afin que vous fassiez des tests si vous le souhaitez.

Merci encore pour vous pencher sur mon problème

 

[mic41]

Re : Filtre dynamique tableau croisé

Je viens de résoudre ce "petit" problème en recréant une feuille TCD contenant les mêmes informations et là ca marche.

mystère, mystère

bon courage a tous