Bonjour,
j'ai une page avec 3 TCD et je me demandais si il était possible de selectionner le premier TCD et que les autres prennent l'information du premier afin d'actualiser les autres TCD.
On m'a conseillé ce code à insérer que j'ai mis dans le fichier joint mais je ne sais pas trop comment ca marche!
Tatiana
Sub MAJ_Niveau_Dim_Agence()
'*********************
' Cette macro applique l'agence du premier TCD (MasterPivotTable) à tous les
'autres TCD d'une page
'*********************
Dim VarEtabl As String
VarEtabl = ThisWorkbook.ActiveSheet.PivotTables("MasterPivotTable").PivotFields("[Agence]").CurrentPageName
' la variable VarEtabl correspond au nom de l'agence au format MDX
'******************
ActiveSheet.PivotTables(1).PivotFields("[Agence]").CurrentPageName = VarEtabl
' On applique le nom de l'agence au format MDX à tous les TCD de la page
'******************
End Sub
j'ai une page avec 3 TCD et je me demandais si il était possible de selectionner le premier TCD et que les autres prennent l'information du premier afin d'actualiser les autres TCD.
On m'a conseillé ce code à insérer que j'ai mis dans le fichier joint mais je ne sais pas trop comment ca marche!
Tatiana
Sub MAJ_Niveau_Dim_Agence()
'*********************
' Cette macro applique l'agence du premier TCD (MasterPivotTable) à tous les
'autres TCD d'une page
'*********************
Dim VarEtabl As String
VarEtabl = ThisWorkbook.ActiveSheet.PivotTables("MasterPivotTable").PivotFields("[Agence]").CurrentPageName
' la variable VarEtabl correspond au nom de l'agence au format MDX
'******************
ActiveSheet.PivotTables(1).PivotFields("[Agence]").CurrentPageName = VarEtabl
' On applique le nom de l'agence au format MDX à tous les TCD de la page
'******************
End Sub