vba et tableau croisé dynamique
bonjour le forum,
je cherche à créer par vba des tableaux croisés dynamique mais je rencontre un souci avec le code ci-dessous:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Dim CACHE As PivotCache
Dim TCD1 As PivotTable
Dim TABLEAU As ListObject
Dim DERNIERE_FEUILLE As Worksheet
Set DERNIERE_FEUILLE = Worksheets(Worksheets.Count)
Set TABLEAU = DERNIERE_FEUILLE.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes)
TABLEAU.Name = "Stock 8mois" & DERNIERE_FEUILLE.Name
Set ETIQ_TOTAL = Range("S1").End(xlDown).Offset(6, 0)
Set CACHE = PivotCaches.Create(SourceType:=xlDatabase, SourceData:=TABLEAU)
Set TCD1 = CACHE.CreatePivotTable(ETIQ_TOTAL.Offset(2, 0))
with DERNIERE_FEUILLE
With TCD1
.PivotFields("Gamme khéops").Orientation = xlRowField
.AddDataField.PivotField ("Stock dans 8M hors entrée K€"), "somme par gamme", xlSum
End With
end with |
lorsque je lance ma macro cela m'affiche :"erreur de compilation: argument non falcutatif" au niveau de .adddatafield.
Quelqu'un aurait-il une idée de la raison car la je sèche complètement!!
Merci
