Problème Pivottable avec une date

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