Bonjour,
Soit une feuille d'accueil sélectionnée à l'ouverture du fichier.
3 autres feuilles contenant des TCD qui, à chaque modification, font appel à
l'événement update pivottable (pour rezoomer la fenêtre)
Quand Workbook_open a terminé, il ajuste les TCD et la fenêtre qui apparaît
est le dernier TCD actualisé.
Mais je voudrais ma page d'accueil!!!
J'ai songé à enableevents=false mais c'est pas terrible.
Une(des) idée(s)?
--
René Delcourt
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour René,
Voici un bout de code... mais sans voir ton code, je ne suis pas sûr d'avoir saisi la donne du problème.
Cette procédure lance la mise à jour de tous tes TDC des feuilles que tu définiras dans la procédure !
'------------------------------ Dim Pt As PivotTable, Nom As String Dim Arr As Variant, Elt As Variant
'insère le nom des feuilles contenant tes TDC Arr = Array("Feuil1", "Feuil2", "Feuil3")
'Inscrit le nom de ta feuille d'accueil With Worksheets("NomFeuilleAccueil") Nom = .Name .Select End With Application.EnableEvents = False
For Each Elt In Arr For Each Pt In Worksheets(Elt).PivotTables Pt.Update Next Next Sheets(Nom).Select '-----------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Soit une feuille d'accueil sélectionnée à l'ouverture du fichier. 3 autres feuilles contenant des TCD qui, à chaque modification, font appel à l'événement update pivottable (pour rezoomer la fenêtre) Quand Workbook_open a terminé, il ajuste les TCD et la fenêtre qui apparaît est le dernier TCD actualisé. Mais je voudrais ma page d'accueil!!! J'ai songé à enableeventsúlse mais c'est pas terrible. Une(des) idée(s)? -- René Delcourt
Bonjour René,
Voici un bout de code... mais sans voir ton code, je ne suis pas sûr d'avoir saisi la donne du problème.
Cette procédure lance la mise à jour de tous tes TDC des feuilles que tu définiras dans la procédure !
'------------------------------
Dim Pt As PivotTable, Nom As String
Dim Arr As Variant, Elt As Variant
'insère le nom des feuilles contenant tes TDC
Arr = Array("Feuil1", "Feuil2", "Feuil3")
'Inscrit le nom de ta feuille d'accueil
With Worksheets("NomFeuilleAccueil")
Nom = .Name
.Select
End With
Application.EnableEvents = False
For Each Elt In Arr
For Each Pt In Worksheets(Elt).PivotTables
Pt.Update
Next
Next
Sheets(Nom).Select
'-----------------------------
Salutations!
"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news: A0FFD56C-C5B9-4628-9B12-D5A3E4DD3D4F@microsoft.com...
Bonjour,
Soit une feuille d'accueil sélectionnée à l'ouverture du fichier.
3 autres feuilles contenant des TCD qui, à chaque modification, font appel à
l'événement update pivottable (pour rezoomer la fenêtre)
Quand Workbook_open a terminé, il ajuste les TCD et la fenêtre qui apparaît
est le dernier TCD actualisé.
Mais je voudrais ma page d'accueil!!!
J'ai songé à enableeventsúlse mais c'est pas terrible.
Une(des) idée(s)?
--
René Delcourt
Voici un bout de code... mais sans voir ton code, je ne suis pas sûr d'avoir saisi la donne du problème.
Cette procédure lance la mise à jour de tous tes TDC des feuilles que tu définiras dans la procédure !
'------------------------------ Dim Pt As PivotTable, Nom As String Dim Arr As Variant, Elt As Variant
'insère le nom des feuilles contenant tes TDC Arr = Array("Feuil1", "Feuil2", "Feuil3")
'Inscrit le nom de ta feuille d'accueil With Worksheets("NomFeuilleAccueil") Nom = .Name .Select End With Application.EnableEvents = False
For Each Elt In Arr For Each Pt In Worksheets(Elt).PivotTables Pt.Update Next Next Sheets(Nom).Select '-----------------------------
Salutations!
"René Delcourt" a écrit dans le message de news: Bonjour, Soit une feuille d'accueil sélectionnée à l'ouverture du fichier. 3 autres feuilles contenant des TCD qui, à chaque modification, font appel à l'événement update pivottable (pour rezoomer la fenêtre) Quand Workbook_open a terminé, il ajuste les TCD et la fenêtre qui apparaît est le dernier TCD actualisé. Mais je voudrais ma page d'accueil!!! J'ai songé à enableeventsúlse mais c'est pas terrible. Une(des) idée(s)? -- René Delcourt
