Bonjour,

Je cherche à supprimer les anciennes données de plusieurs TCD. J'ai essayé plusieurs méthodes mais rien n'y fait.
Mais en ayant effacer toutes les données sources, les TCD continuent à utiliser les anciennes données.

La dernière solution essayée est celle ci-dessous :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub DeleteOldItemsWB()
'gets rid of unused items in PivotTable
' based on MSKB (202232)
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim i As Integer
On Error Resume Next
     For Each ws In ActiveWorkbook.Worksheets
         For Each pt In ws.PivotTables
             pt.RefreshTable
                 For Each pf In pt.PivotFields
                     For Each pi In pf.PivotItems
                         If pi.RecordCount = 0 And Not pi.IsCalculated Then
                                 pi.Delete
                         End If
                     Next
                 Next
         Next
     Next
End Sub
On trouve beaucoup d'information sur le net mais là, je sèche.
Je suis relativement débutante en vba et j'ai vraiment besoin de l'aide de pro.

Merci d'avance.

BcB