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