Tableau croisé dynamique en VBA
rikito
Messages postés
5
Statut
Membre
-
rikito -
rikito -
Bonjour,
j'essaie de coder un TCD qui va s'adapter à la volumétrie des données sur excel, grâce à end(wldown). Or, mon code ne marche pas. Vous voyez ce qui cloche à ce niveau-là ?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'ts types'!R1C1:R1c1.end(xldown).offset(0,12)").CreatePivotTable TableDestination:= _
"[essaimacrosKPIs.xls]ACFI!R3C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10
j'essaie de coder un TCD qui va s'adapter à la volumétrie des données sur excel, grâce à end(wldown). Or, mon code ne marche pas. Vous voyez ce qui cloche à ce niveau-là ?
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'ts types'!R1C1:R1c1.end(xldown).offset(0,12)").CreatePivotTable TableDestination:= _
"[essaimacrosKPIs.xls]ACFI!R3C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Ce qui cloche, c'est ça :
"'ts types'!R1C1:R1c1.end(xldown).offset(0,12)"
tu met le offset et le end(...) dans une "string", donc ils sont lus tels quels.
a mon avis, utilise une variable annexe 'as range'
set tmp = 'ts types'!R1C1:R1c1.end(xldown).offset(0,12)
puis
tmp.name et tmp.address
ou équivalent.
voilà ce que j'en dit, je sais pas si ça marchera.
Bon courage.
2t
