Rafraîchir tous les tableaux croisés dynamiques de mon classeur Excel avec une macro

Question

J'ai un classeur contenant 20 tableaux croisés dynamiques différents. Existe-t-il un moyen simple de trouver tous les tableaux croisés dynamiques et de les rafraîchir en VBA ?

Answer 1

Oui.

ThisWorkbook.RefreshAll

Ou, si votre version d'Excel est assez ancienne,

Dim Sheet as WorkSheet, Pivot as PivotTable
For Each Sheet in ThisWorkbook.WorkSheets
    For Each Pivot in Sheet.PivotTables
        Pivot.RefreshTable
        Pivot.Update
    Next
Next

Answer 2

Ce code VBA rafraîchira tous les tableaux/graphiques croisés dynamiques du classeur.

Sub RefreshAllPivotTables()

Dim PT As PivotTable
Dim WS As Worksheet

    For Each WS In ThisWorkbook.Worksheets

        For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT

    Next WS

End Sub

Il existe une autre option non programmatique :

• Cliquez avec le bouton droit de la souris sur chaque tableau croisé dynamique
• Sélectionnez les options de la table
• Cochez la case Rafraîchir à l'ouverture option.
• Cliquez sur le bouton OK

Cela rafraîchira le tableau croisé dynamique chaque fois que le classeur sera ouvert.

Answer 3

ActiveWorkbook.RefreshAll rafraîchit tout, non seulement les tableaux croisés dynamiques mais aussi les requêtes ODBC. J'ai quelques requêtes VBA qui font référence à des connexions de données et l'utilisation de cette option provoque un crash car la commande exécute les connexions de données sans les détails fournis par le VBA.

Je recommande cette option si vous voulez seulement que les pivots soient rafraîchis.

Sub RefreshPivotTables()     
  Dim pivotTable As PivotTable     
  For Each pivotTable In ActiveSheet.PivotTables         
    pivotTable.RefreshTable     
  Next 
End Sub

Answer 4

Dans certaines circonstances, vous pouvez vouloir faire la différence entre un PivotTable et son PivotCache. Le cache a sa propre méthode de rafraîchissement et ses propres collections. Nous aurions donc pu rafraîchir tous les PivotCaches au lieu des PivotTables.

La différence ? Lorsque vous créez un nouveau tableau croisé dynamique, on vous demande si vous voulez qu'il soit basé sur un tableau précédent. Si vous dites non, ce tableau croisé dynamique obtient son propre cache et double la taille des données sources. Si vous dites oui, vous gardez votre WorkBook petit, mais vous ajoutez à une collection de tableaux croisés dynamiques qui partagent un cache unique. La collection entière est rafraîchie lorsque vous rafraîchissez un tableau croisé dynamique de cette collection. Vous pouvez donc imaginer la différence entre le rafraîchissement de chaque cache dans le WorkBook et le rafraîchissement de chaque tableau croisé dynamique dans le WorkBook.

Answer 5

Il existe une option d'actualisation de tous les éléments dans la barre d'outils du tableau croisé dynamique. Cela suffit. Il n'est pas nécessaire de faire autre chose.

Appuyez sur ctrl+alt+F5