Macro actualisation auto TCD
Résolu
JL00700
Messages postés
100
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,
J’ai réalisé avec EXCEL un petit applicatif budgétaire composé de plusieurs feuilles, une qui sert d’écran menu composé de 6 boutons (choix), chacun donnant accès à une feuille spécifique.
Parmi celles-ci, une est dédiée à différents TCD de synthèse.
A l’usage, la lecture de cette feuille de synthèse ne s’avère pas pratique et la nécessité de devoir actualiser manuellement les données pose quelques problèmes aux utilisateurs.
J’ai donc développé, sur cette même feuille, un tableau de bord alimenté à partir des données des TCD.
Cela fonctionne parfaitement, il ne me reste qu’à intégrer une actualisation automatique dès lors que l’utilisateur accède ladite feuille.
J’ai effectué des recherches et trouvé une méthodologie que je n’arrive pas à intégrer à ma macro !!!
Pourriez-vous m’aider… je vous en remercie par avance.
Voici ma macro :
Sub Accès_Tableau_Analyse_Dynamique()
'
' Accès_Tableau_Analyse_Dynamique Macro
Sheets("Analyse_Dynamique").Visible = True
Sheets("Analyse_Dynamique").Activate
ActiveSheet.Unprotect "toto"
Cells.Select
Range("A5").Select
End Sub
J’ai réalisé avec EXCEL un petit applicatif budgétaire composé de plusieurs feuilles, une qui sert d’écran menu composé de 6 boutons (choix), chacun donnant accès à une feuille spécifique.
Parmi celles-ci, une est dédiée à différents TCD de synthèse.
A l’usage, la lecture de cette feuille de synthèse ne s’avère pas pratique et la nécessité de devoir actualiser manuellement les données pose quelques problèmes aux utilisateurs.
J’ai donc développé, sur cette même feuille, un tableau de bord alimenté à partir des données des TCD.
Cela fonctionne parfaitement, il ne me reste qu’à intégrer une actualisation automatique dès lors que l’utilisateur accède ladite feuille.
J’ai effectué des recherches et trouvé une méthodologie que je n’arrive pas à intégrer à ma macro !!!
Pourriez-vous m’aider… je vous en remercie par avance.
Voici ma macro :
Sub Accès_Tableau_Analyse_Dynamique()
'
' Accès_Tableau_Analyse_Dynamique Macro
Sheets("Analyse_Dynamique").Visible = True
Sheets("Analyse_Dynamique").Activate
ActiveSheet.Unprotect "toto"
Cells.Select
Range("A5").Select
End Sub
A voir également:
- Actualiser automatiquement tableau croisé dynamique vba
- Tableau croisé dynamique - Guide
- Exemple tableau croisé dynamique télécharger - Télécharger - Tableur
- Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
- Tableau word - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
2 réponses
Bonjour,
Un TCD ne se met pas à jour tout seul. Il faut donc l'ajouter à ton code, quelque chose comme ça :
Si la feuille est protégée, il faut effectivement la déprotéger puis la reprotéger.
Si la feuille contient plusieurs TCD, il faut faire une boucle.
m@rina
Un TCD ne se met pas à jour tout seul. Il faut donc l'ajouter à ton code, quelque chose comme ça :
With Sheets("Analyse_Dynamique")
.Visible = True
.Activate
.PivotTables("Nom du TCD").PivotCache.Refresh
End With
Si la feuille est protégée, il faut effectivement la déprotéger puis la reprotéger.
Si la feuille contient plusieurs TCD, il faut faire une boucle.
m@rina
