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+++
Bonjour @oceyann1
Un fichier d’exemple nous aidera bien.
Cordialement
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.
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.
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.
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
Nickel ça fonctionne
Merci
1 « J'aime »