Macro création d'un tcd

[jaroddu94]

Bonjour à tous,

Voici mon souci : Sous excel 2003 Je voudrais créer un TCD sur une feuille nommée, ça me crée bien le tcd mais j'ai un souci avec le rappatriement des champs, voici mon code :

Sub Macrotest()

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"source!R2C2:R17C6").CreatePivotTable TableDestination:= _
"'[test macro.xls]TCD'!R2C2", TableName:="TCDtest", _
DefaultVersion:=xlPivotTableVersion10

ActiveSheet.PivotTables("TCDtest").AddFields RowFields:= _
"Métier"

With ActiveSheet.PivotTables("TCDtest").PivotFields( _
"Réel 2010")
.Orientation = xlDataField
.Function = xlCount
End With

End Sub

Merci d'avance.

 

[Pierrot93]

Re : Macro création d'un tcd

Bonjour,

sans le modèle de donnée traité, difficile à dire... regarde le lien ci-dessous, tu y trouvera un exemple de création de tcd par vba, en espérant que cela puisse t'aider....

https://www.excel-downloads.com/threads/vba-filtre-date-tcd.149712/
bonne journée
@+

 

[jaroddu94]

Re : Macro création d'un tcd

merci bien Pierrot93, je regarde ça !!

 

[jaroddu94]

Re : Macro création d'un tcd

Impecable j'ai trouvé mon bonheur !!
Bon pour compliquer un peu le truc, je voudrai lancer la macro avec une liste déroulante !
Pour chaque entrée de la liste changer un champ dans le tcd !!!!

 

[jaroddu94]

Re : Macro création d'un tcd

ok c'est bon j'ai trouvé