Formule dans un TDC en VB

[Yoyo]

Bonjour à tous ,


Est ce qu'il est possible en VB de récupérer le Total d'un TDC et de ce servir de ce total dans une formule .

Voila à peu près le code que je veux créer:

' Créer un Champ Somme cumulé
ActiveSheet.PivotTables('Tableau croisé dynamique1').PivotFields('Données'). _
PivotItems('Somme bt3').Position = 5
'Créer un champ % cumulé avec la formule = Somme cumulée/TOTAL
ActiveSheet.PivotTables('Tableau croisé dynamique1').CalculatedFields('%cum'). _
Formula = '=Somme bt3/(Total bt)'

Merci de votre aide

Cordialement

yoyo