TCD VBA tableau croisé dynamique

Bonjour,

Je suis coincé dans l'écriture de mon script en VBA concernant la lecture d'informations contenues dans un TCD (tableau croisé dynamique).
Est-ce que quelqu'un sait comment faire pour obtenir en VBA une valeur d'un TCD ?
J'ai essayé plusieurs codes mais en vain ::bug:

Code:

---

Set nbascendant = ActiveCell.PivotTable.GetPivotData("est fils ET père", "est fils ET père", "Nombre de est fils ET père", "COCADEST", "6328")

---

ou

Code:

---

MsgBox ActiveSheet.PivotTables(1).GetData("'Nombre de est fils ET père' 'COCADEST' 'COCAREAL'")

---

Je ne connais pas la syntaxe exacte, je pense que c'est peut-être un problème de guillemets, apostrophes, virgules, paranthèses ou crochets...

Aidez-moi s'il vous plait. Merci.
Pierre


[IMG]d:\TCD VBA tableau croisé dynamique.JPG[/IMG]

c'est bon j'ai trouvé

Code:

---

MsgBox ActiveSheet.PivotTables(1).GetData("'A' 'B' ['" & b & "'] ")

---

en bleu les champs du TCD
en rouge, une des valeurs du champs