XL 2019 actualisation de plusieurs tableaux croisés dynamiques vba

loreak · 28 Juillet 2022

Bonjour à tous,

J'ai à actualiser plusieurs tableaux croisés dynamiques situés sur plusieurs feuilles. Le problèmes est le code, il s'exécute en 10 min qui est très long. (actualise les 100 tcd en un seul coup), (peut être changer le code pour actualiser feuille par feuille mais je sais pas comment on fait )
Voici le code :

VB:

Public Sub ActualisationApresSasie()
Dim ws As Worksheet
Dim pt As PivotTable



Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    

    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
            pt.RefreshTable
        Next
    Next
Application.Calculation = xlCalculationAutomatic


Sheets("base de données").Activate

End Sub

Merci d'avance

Hasco · 28 Juillet 2022

bonjour,

Mettez cette macro évènementielle dans le module de code du classeur (ThisWorkbook), elle se déclenche lorsqu'une feuille du classeur est activée. Si cette dernière contient des TCD, il seront rafraîchis.

N'oubliez pas de supprimer les appels à l'autre macros dans vos modules.

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim pt As PivotTable
    '
    ' Si sh est bien une feuille de travail et non une feuille graphique ou autre chose
    If TypeOf Sh Is Worksheet Then
        ' S'il la feuille contient des TCD alors ils seront rafraîchis
        For Each pt In Sh.PivotTables
            pt.RefreshTable
        Next
    End If
End Sub

Pour ouvrir le module de code ThisWorkbook :
Ouvrir l'éditeur de macro, ALT+F11
Double-cliquez sur son nom dans la liste de l'explorateur de projet. Si ce dernier (voir photo) n'est pas ouvert dans l'éditeur de macro faire CTRL+R ou menu affichage

chris · 28 Juillet 2022

Bonjour à tous

Pour rappel : pour tous les TCD ayant la même source, l'actualisation de l'un actualise les autres donc il ne faut pas boucler sur tous les TCD mais sur un seul TCD par source

loreak · 28 Juillet 2022

merci pour ta réponse, cependant le problème est que ton code fait crash l'application excel et le fichier ce ferme tout seul .

Efgé · 28 Juillet 2022

Bonjour
Pourquoi boucler sur les pivots et ne pas utiliser

VB:

Public Sub ActualisationApresSasie()
ActiveWorkbook.RefreshAll
End Sub

Cordialement

loreak · 28 Juillet 2022

Efgé à dit:
Bonjour
Pourquoi boucler sur les pivots et ne pas utiliser

VB:

Public Sub ActualisationApresSasie() ActiveWorkbook.RefreshAll End Sub

Cordialement

j'ai essayer ce code-ci , il n'actualise pas les données et je ne sais pas pourquoi

Hasco · 28 Juillet 2022

Efgé à dit:
Bonjour
Pourquoi boucler sur les pivots et ne pas utiliser

VB:

Public Sub ActualisationApresSasie() ActiveWorkbook.RefreshAll End Sub

Cordialement

Bonjour @Efgé

Justement parce que la demande était :

loreak à dit:
...actualiser feuille par feuille mais je sais pas comment on fait

et que .RefreshAll Actualise toutes les plages de données externes et les rapports de tableau croisé dynamique dans le classeur spécifié.

loreak à dit:
merci pour ta réponse, cependant le problème est que ton code fait crash l'application excel et le fichier ce ferme tout seul .

Si c'est à moi que vous adressez cette réponse, je ne sais pas comment vous avez implémenter la procédure évènementielle, si elle n'interfère pas avec une autre etc...

Si vous faites un click-droit sur un tcd puis 'Actualiser' est-ce qu'il y en a qui plante ?

Bref, on ne sait rien de votre fichier, il n'est que possible de proposer des solutions classiques en fonction de ce que vous dites.

Mais si votre fichier est vraiment trop lourd à calculer et commence à planter pour un oui ou un non il est peut-être temps de remettre l'ensemble à plat.

Cordialement

Efgé · 28 Juillet 2022

Re
Bonjour @Hasco

Hasco à dit:
Justement parce que la demande était :
et que .RefreshAll Actualise toutes les plages de données externes et les rapports de tableau croisé dynamique dans le classeur spécifié.

Je sais bien, mais actualiser tous les TCD un par ou tous en même temps, je ne voyais pas la différence.
Par contre

loreak à dit:
j'ai essayer ce code-ci , il n'actualise pas les données et je ne sais pas pourquoi

me surprend plus.
d'ailleurs, comme tu le soulignes, la demande est très floue puisqu'il y a aussi

loreak à dit:
(actualise les 100 tcd en un seul coup),

alors que le code donné au poste 1 boucle...
Cordialement

loreak · 28 Juillet 2022

Efgé à dit:
alors que le code donné au poste 1 boucle...

Ce que je veux dire c'est que celui-ci actualise les 100 tcd lors de la même macro, mais sinon il actualise un à un les TCD lors de l'exécution de la macro

Hasco · 28 Juillet 2022

Re,

Avant d'aller de tomber d'inanition et d'aller manger :

Un fichier excel avec 100 tcd est anti-productif, certainement trop lourd et sûrement ingérable.
Remettez tout à plat et utilisez des fichiers différents et nourrissez vos tcd par power query.

Cordialement

XL 2019 actualisation de plusieurs tableaux croisés dynamiques vba

loreak

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

loreak

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

loreak

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

loreak

XLDnaute Nouveau

Hasco

XLDnaute Barbatruc

Discussions similaires