Problème Pivottable avec une date

[Fab2108]

Bonjour,

Je cherche à mettre à jour un TCD par la méthode suivante :
Dim DAY as date

DAY = Format(Now, "mm/dd/yyyy")

ActiveSheet.PivotTables("CAISSE").PivotCache.Refresh
ActiveSheet.PivotTables("CAISSE").PivotFields("DPAIEMENT").CurrentPage = DAY

Le champ DPAIEMENT contient bien des dates.

En utilisant cette syntaxe, la valeur DAY = 28/06/2011 devient 06/28/2011 dans le pivotfields une fois la sub executée.

Si j'utilise une valeur string genre DDAY = "28/06/2011", j'obtiens une erreur 1004 impossible de définir la valeur _default de la classe PivotItem.

Voila

Je n'arrive pas à sortir de cette impasse !!! A l'aide !!!

Merci

 

[tototiti2008]

Re : Problème Pivottable avec une date

Bonjour Fab,

Chez moi pas de soucis avec une chaine du genre "28/06/2011"
As-tu des données pour le 28/6 ?

 

[Fab2108]

Re : Problème Pivottable avec une date

oui, j'ai bien des données.

Le problème c'est que la valeur attribuée par le code vba est différente des données présentes.

Ma valeur DAY est égale à 28/06/2011, et celle enregistrée en curentpage en fin de procédure est 06/28/2011, mais la fonction ne plante pas.


Si j'envoie une valeur string de ma date, la fonction plante.

 

[youky(BJ)]

Re : Problème Pivottable avec une date

Bonjour Fab,
salut Tototiti,
DAY = Format(Now, "mm/dd/yyyy")
Essaies plutot ainsi . . . .
DAY = Format(Now, "dd/mm/yyyy")

Bruno