Bonjour à tous,
Après avoir fait une recherche sur le forum, je n'ai pas trouvé réponse à mon problème alors je me permet d'ouvrir une discussion...
J'essaie de créer automatiquement avec une macro un TCD à partir d'une source et sur une feuille spécifique (mgh) qui sont dans le même classeur, seulement cela me créé un bug Runtime error 1004
Voici le code qui bug :
Range("A1:FZ5620").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Source!R1C1:R5620C182").CreatePivotTable TableDestination:= _
"'[Macro Free Look report.xls]mgh'!R1:R65536", TableName:="PivotTable4", _
DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("PivotTable4").PivotFields("BaseCampaignSplit") .Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("PolicyStatus")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("PolicyStatus"), "Count of PolicyStatus", xlCount
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Reference2")
.Orientation = xlRowField
.Position = 1
Merci d'avance pour votre aide
Benhou
Après avoir fait une recherche sur le forum, je n'ai pas trouvé réponse à mon problème alors je me permet d'ouvrir une discussion...
J'essaie de créer automatiquement avec une macro un TCD à partir d'une source et sur une feuille spécifique (mgh) qui sont dans le même classeur, seulement cela me créé un bug Runtime error 1004
Voici le code qui bug :
Range("A1:FZ5620").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Source!R1C1:R5620C182").CreatePivotTable TableDestination:= _
"'[Macro Free Look report.xls]mgh'!R1:R65536", TableName:="PivotTable4", _
DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("PivotTable4").PivotFields("BaseCampaignSplit") .Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("PolicyStatus")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("PolicyStatus"), "Count of PolicyStatus", xlCount
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Reference2")
.Orientation = xlRowField
.Position = 1
Merci d'avance pour votre aide
Benhou