MAJ tous les TCD d'un classeur

[Byboone]

Bonjour,

J'ai un classeur avec 18 TCD à actualiser dont certains sont lié à des serveurs OLAP. Je voudrais savoir s'il y a un moyen de mettre à jour tous ces tableaux en une seule manip.

Merci pour votre aide,

Agathe

 

[Efgé]

Re : MAJ tous les TCD d'un classeur

Bonjour,
J'ai récupéré sur le forum, il y a longtemps ce code:
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

Il pemet de "nétoyer" et actualiser tous les TCD d'un classeur actif.
Cordialement

 

[Efgé]

Re : MAJ tous les TCD d'un classeur

Une précision importante: suivant le nombre et la compléxité des TCD, le traitement est plus ou moins long...

 

[Byboone]

Re : MAJ tous les TCD d'un classeur

Merci beaucoup,

Pour le temps, de toutes façons ce sera plus rapide que de tous les actualiser à la main, sans compter le risque d'oubli.... Donc ça ne pose pas de problème, en revanche il me semble que dans ta macro, il est demandé de nettoyer les valeurs à 0 ou -. Bref les valeurs nulles quoi... seulement je souhaiterais les garder.

Tu n'aurais pas la macro sans la notion de nettoyage?

Bonne après midi.

 

[Efgé]

Re : MAJ tous les TCD d'un classeur

Il faut vérifier mais je pense que cete version doit marcher:
Sub DeleteOldItemsWB()
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

 

[tototiti2008]

Re : MAJ tous les TCD d'un classeur

Bonjour à tous,

si j'ai bien compris, une autre solution plus courte :

Sub Actualise()
    ThisWorkbook.RefreshAll
End Sub

 

[Efgé]

Re : MAJ tous les TCD d'un classeur

tototiti2008 à raison pour l'actrualisation, mais le code permet aussis de nétoyer les TCD des données qui restent à tort dans les filtres.

 

[Byboone]

Re : MAJ tous les TCD d'un classeur

merci tototiti c'est effectivement ce que je cherche.

Efgé merci à toi aussi, je garde ta macro en mémoire ça peut servir.

Bonne fin de journée tous les 2?

🙂