Programmer un TCD avec VBA
Bonjour,
J'aimerais créer un TCD avec VBA. J'ai trouvé un code sur le forum ("Comment créer un TCD par macro?") mais il ne fonctionne pas quand je le personnalise avec mes données.
https://excel.developpez.com/faq/?pa...eationTCDMacro
Voici les données que je personnalise dans le code :
Code:
1
2
3
4
| Feuil1= workbooks(“Doc 1”).worksheets(“Tab A”)
Feuil2= worksheets(“Doc 1”).worksheets(“Pivot2018”)
Ville = Data1
CA= Data2 |
Pour information, les données du futur TCD et la macro se trouvent dans deux documents différents. Voici le code que je rentre dans VBA :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub CreerTCD()
Workbooks(„Doc 1“).worksheets(„Tab A“).activate
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
[Tab A!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Pivot2018!R3C1", _
TableName:="Mon TCD"
With Pivot2018.PivotTables("Mon TCD")
.AddFields RowFields:="Data1"
.PivotFields("Data2").Orientation = xlDataField
End With
End sub |
L'erreur 9 apparaît à chaque fois et je ne comprends pas pourquoi...
Merci pour votre aide.
