Créer un TCD par macro merci à tous par avanc

Fermé
Gui - 22 avril 2012 à 11:53
Bonjour à tous,

Je souhaite créer un TCD au moyen d'une macro sur la même feuille que la base de données du classeur.

J'ai fait 3 tentatives sans succès. Pourriez-vous m'aider SVP?
Merci à tous par avance.

Voici le code

Débogage
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"data!R1C1:R1264C40", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="tcd!R1C1:R50C10", TableName:="Tableau croisé dynamique2" _
, DefaultVersion:=xlPivotTableVersion10

Remplacer create par add
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"data!R1C1:R1264C40", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="tcd!R1C1:R50C10", TableName:="Tableau croisé dynamique2" _
, DefaultVersion:=xlPivotTableVersion10

Supprimer Version:=xlPivotTableVersion10
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"data!R1C1:R1264C40").CreatePivotTable _
TableDestination:="tcd!R1C1:R50C10", TableName:="Tableau croisé dynamique2" _
, DefaultVersion:=xlPivotTableVersion10



A voir également: