Actualiser un Graphique Croisé Dynamique en VBA

[oceyann1]

Bonjour,
je souhaite actualiser un Graphique croisé dynamique via VBA.
Le GCD « Graphique 1 » se trouve dans la feuil « ENTREES GRAPH » et l’étiquette de données « Désignation Libellé »

J’ai mis ces lignes de commande dans le VBA de

Application.EnableEvents = False
Sheets(« ENTREES GRAPH »).PivotTables(« Graphique 1 »).RefreshTable
Application.EnableEvents = True

1 - est-ce déjà le bon endroit ?
2 - est-ce la bonne ligne de commande ?

Car l’actualisation ne se fait pas.

J’ai également essayé cette macro

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

Mais ça ne fonctionne pas non plus

MERCI+++

[Jacquinot_WILL-FREAD]

Bonjour @oceyann1
Un fichier d’exemple nous aidera bien.
Cordialement

[oceyann1]

Malheureusement comme c’est le même fichier qu’hier…c’est bien trop volumineux.
Désolé.
Je veux juste trouver une macro qui me mette TOUS les graphiques croisés dynamiques à jour en fait.
Car j’en ai d’autres dans d’autres feuille de calcul. Autant tout faire ne même temps.

[Jacquinot_WILL-FREAD]

Re,
vous n’avez juste qu’a créer un fichier d’exemple, vous n’êtes pas obligés de partager un fichier que vous utilisez en ce moment.

[oceyann1]

Bon j’ai hyper simplifié.
Fichier joint 4 onglets
Test actualisation GCD.xlsx (55,5 Ko)
Entrées=>les entrées en stock de mes consommables
Sorties=>les sorties de stock de mes consommables
Graph Entrées=>graphique Tableau Croisé Dynamique de mes entrées
Graph Sorties=>graphique Tableau Croisé Dynamique de mes sorties

Après le rajout d’entrées et sorties je voudrais qu’en cliquant sur le bouton en haut de l’onglet ENTREES
ça me mette à jour les 2 graphiques tableau croisés dynamique.

Dans mon fichier original j’ai un paquet de userform, certains multipage, remplis de macro
C’est dans le userform ajout entrées/ajout sorties que je déposerai la macro de mise à jour.

[Jacquinot_WILL-FREAD]

Bonjour,
A tester :

Sub Actualiser()
Dim feuille As Worksheet
Dim tcds As PivotTable
For Each feuille In Worksheets
    For Each tcds In feuille.PivotTables
        tcds.PivotCache.Refresh
    Next
Next
End Sub

Test actualisation GCD.xlsm (70,7 Ko)
Cordialement
Will-Fread

[oceyann1]

Nickel ça fonctionne
Merci