Discussion :

[ulysseus13]

Bonjour.
Le code d'une macro ci-dessous me permet de créer un tableau croisé dyamique en automatique dans une feuille existante. Il sélectionne bien tous les champs, du premier (A1) au dernier (last cell). Cependant, la macro "garde en mémoire", la plage de champs enregistrée au moment de la création de la macro pour actualiser la pivot table.
Donc, comment faire pour la plage du tableau croisé soit actualisée avec les vrais champs actifs?
Merci
Philippe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'80%_LEVEL'!R1C1:R41C19").CreatePivotTable TableDestination:=Range("A1"), _
        TableName:="PivotTable1"
    ActiveSheet.PivotTables("PivotTable1").SmallGrid = False

[SilkyRoad]

bonsoir

Je ne suis pas sur d'avoir compris mais si tu disposes d'Excel2002, tu peux essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Pvt As PivotTable
Set Pvt = ActiveSheet.PivotTables("PivotTable1")
Pvt.PivotCache.MissingItemsLimit = xlMissingItemsNone

michel