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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.