Discussion :

[pierrotpoulpo]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

[pierrotpoulpo]

c'est bon j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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