Macro actualisation auto TCD
Résolu
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
2 réponses
-
ContributeurBonjour à tous,
Pour rafraichir tous les TCD d'un coup à l'activation de ta feuille, mettre dans le module de la feuille de synthèse :Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub
eric
-
Bonjour,
Merci M@rina, Eric pour votre attention.
J'essai en vain de mettre en œuvre vos recommandations mais je n'y arrive pas...
Il faut dire que je suis très novice en matière de macro et je ne maîtrise pas du tout cette option qui semble cependant présenter de nombreux avantages.
J'ai réussi à réaliser mon petit appli en cherchant sur le Net et sur CCM en particulier où l'on trouve de nombreuses aux questions posées.
Mais là, j'avoue ne pas comprendre.
Voici mon dernier essai (planté également) :
End Sub Accès_Tableau_Analyse_Dynamique()
'
'Accès Analyse_Dynamique_MAJ
'
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
Sheets("Analyse_Dynamique").Visible = True
Sheets("Analyse_Dynamique").Activate
ActiveSheet.Unprotect "toto"
Cells.Select
Range("I20").Select
End Sub -
ContributeurBonjour,
difficile de te répondre sans le fichier ni la ligne en erreur et son message.
2-3 petites modifs :'Accès Analyse_Dynamique_MAJ ' Private Sub Worksheet_Activate() ThisWorkbook.RefreshAll Sheets("Analyse_Dynamique").Visible = True Sheets("Analyse_Dynamique").Select ActiveSheet.Unprotect "toto" Range("I20").Select End Sub
Merci d'utiliser la balise code (icone <>) pour la lisibilité.
Mais c'était sensé être mis dans le module de ta feuille de synthèse. Pourquoi tu en actives une autre ?
Si ta feuille de synthèse est 'Analyse_Dynamique' pourquoi la cacher ? Si c'est le cas il faudra prévoir un autre type d'activation. Par définition tu ne peux pas activer une feuille cachée.
eric
PS : Après avoir relu, il faudrait mettre ce code (5 lignes) sur ton bouton. -
Bonjour Eric,
J'ai bien transposé vos instructions mais j'ai le message :
Impossible d'exécuter la macro 'TEST_MACRO.xlsm!Accès_Tableau_Analyse_Dynamique' Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.
Vérification faite, toutes les autres macros fonctionnent et ma macro est bien dans ce classeur.
J'ai tenté d'enregistrer une macro pas à pas mais là aussi problème, car arrivé sur ma feuille Analyse_Dynamique, je ne peux me positionner sur les cellules et effectuer l'actualisation manuellement.
Merci encore de votre attention.
Cordialement
Jean -
Je viens de tenter une ultime modif car j'ai constaté que sur toutes mes autres macros (qui fonctionnent) il n'y avait pas dans le nom de la macro le préfix 'TEST_MACRO.xlsm!.
Cette fois, plus de message mais cela ne fonctionne toujours pas, il ne se passe rien du tout lorsque je clique sur le bouton d'accès bien que la macro soit bien affectée !
Désolé de vous importuner autant.
Cordialement
Jean -
-
