macro pour selectionner une valeur dans un TCD

[leroyseb]

Bonjour,
mon problème je pense n'est pas très compliqué mais je m'y prend la tête depuis une journée maintenant!
J'ai un TDC avec plusieurs champs dont un champs date. Dans ce champs on a plusieurs dates de type jj/mm/aaaa (ces valeurs sont de format date dans ma base de données).
La macro que j'essaie de créer doit pouvoir automatiquement séléctionner une de ces valeurs (20/10/2009 par exemple) dans le champs Date.
J'ai enregistré une macro pour voir ce que çà donnait:

ActiveSheet.PivotTables("PivotTable8").PivotFields("DATE").CurrentPage = _
"20/10/2009"

Malheuresement, lorsque j'essai de faire tourner cette macro j'ai cette erreur:

Method 'CurrentPage' of object 'PivotField' failed

J'ai ensuite essayé de mettre dans une cellule ma date au format date et de dire:

ActiveSheet.PivotTables("PivotTable8").PivotFields("DATE").CurrentPage = cellule

Et là, j'ai ce message d'erreur:

Unable to set the _Default property of the PivotItem class

Quand j'essai cette manip sur un autre champs de mon TDC qui sont des strings, çà marche très bien, donc çà vient clairement de ce format date...

Si vous avez une idée...