1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Donnee = "sheets(""DONNEES"").Range(""TCD1"")"
Dest = "sheets(""Graphes"").Range(""B3"")"
var1 = "PotHA"
' **********************************************************************************************
' Creation d'un tableau croisé dynamique CAPdm
' **********************************************************************************************
Set CacheTCD = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=Donnee)
'
' Creation d'un TCD à partir du cache
'
For Each feuille In Worksheets
If feuille.Name = "Graphes" Then
feuille.Activate
Set TCD = CacheTCD.CreatePivotTable _
(tabledestination:=Dest, tablename:="TCDCaPdm")
End If
Next feuille |
Partager