Celeda
XLDnaute Barbatruc
Bonjour,
J'utilise le code (du moins je m'arrache les cheveux pour y arriver!!lol) suivant pour tenter de créer un tcd par macro :
La macro accroche à partir 'Création du PivotTable' cela devient tout jaune.
J'aimerai comprendre ce qui ne va pas car avec la macro ci-dessous :
en dehors du fait que le TCD s'affiche sur la même page, la partie
"ActiveWorkbook...................:="Tableau croisé dynamique1"[/
fonctionne à la perfection!!!
Qu'est-ce qui cloche dans la création avec la première macro?; S V P -
M E R C I de bien vouloir m'expliquer parce que je commence à perdre ma raison.
J'utilise le code (du moins je m'arrache les cheveux pour y arriver!!lol) suivant pour tenter de créer un tcd par macro :
Code:
Sub PivotTableWIN()
Dim Adr As String 'Source
Dim Adr1 As String 'Destination
Dim PT As PivotTable
'Définir où sera copié le pivottable
With Worksheets("TCDWIN")
Adr1 = .Name & "!" & .Range("A1").Address
'Supprime l'ancien pivotcache
.Range("A1").CurrentRegion.Delete (xlUp)
End With
With Worksheets("RPQ")
'Définir où sont les données pour le pivotcache
Adr = .Name & "!" & .Range("A4:Y" & _
.Range("Y65536").End(xlUp).Row).Address
'Création du PivotTable
[B][COLOR="Red"] Set PT = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, SourceData:=Range(Adr)) _
.CreatePivotTable(TableDestination:=Range(Adr1), _
TableName:="TCDW", DefaultVersion:=xlPivotTableVersion10)[/COLOR][/B]
With PT
.AddFields RowFields:="LRU"
.AddFields RowFields:="ACCEPTANCE"
.PivotFields("TOTAL QUOTED in EURO").Orientation = xlDataField
End With
End With
End Sub
La macro accroche à partir 'Création du PivotTable' cela devient tout jaune.
J'aimerai comprendre ce qui ne va pas car avec la macro ci-dessous :
Code:
Create new TCD
Range("F11").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R4C1:R" & der_ligne & "C2").CreatePivotTable TableDestination:=Range("F11"), _
TableName:="Tableau croisé dynamique1"
en dehors du fait que le TCD s'affiche sur la même page, la partie
"ActiveWorkbook...................:="Tableau croisé dynamique1"[/
fonctionne à la perfection!!!
Qu'est-ce qui cloche dans la création avec la première macro?; S V P -
M E R C I de bien vouloir m'expliquer parce que je commence à perdre ma raison.