Problème Script Pivots

[Johan]

Bonjour à toutes et à tous,

voici mon problème:
j'essaie de faire un pivot sur un pivot existant dans un autre sheet, mais ça ne marche pas ... pourquoi?
au départ, l'enregistreur me donnait pour SourceData:= "[nom classeur]nomfeuille!nompivot"
j'ai essayé de modifier pour des raisons pratiques (voir ci-dessous).

Dim PSource As String --> nom du pivot source
PSource = "PivotSource"

Dim SName As String --> nom de la feuille source
SName = "Count of Companys per Resource"

Dim Tname As String --> nom du pivot que je crée
Tname = "Pstatus"

ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, _
SourceData:=Sheets(SName).PivotTables(PSource), _
TableDestination:=Sheets(Wname).Range("b2"), _
TableName:=(Tname)

Pouvez-vous m'aider?

Merci beaucoup,

Johan

 

[Johan]

Rebonjour,

peut-être j'ai trop compliqué ma question?

Mais pour SourceData et TableDestination, est-ce que c'est possible de le faire fonctionner comme je l'ai fait? Le debugger me donne une faute au niveau de .Pivottables(...)

J'espère que qqun peut m'aider,

Johan