Discussion :

[Olivm]

Bonjour,

J'ai un petit souci concernant mes TCD (cubes OLAP).
Avec des TCD classiques, j'arrive à appliquer le même filtre de mois à tout les TCD à l'aide d'une macro (count...)

Mais je n'arrive pas à appliquer cette macro à mes TCD OLAP.

Je vous joins un fichier avec:
- la première macro qui marche pour des TCD classiques
- la deuxième macro qui bloque
- la troisième macro enregistrée lorsque je change mon filtre d'années.

Sinon je suis preneur d'une solution alternative qui m'éviterait de cocher a chaque fois les 5 mêmes cases pour 15 TCD différents. (exple: noter les années voulues dans des cellules et les appliquer aux filtres...).

J'ai vraiment besoin de votre aide, ça fait déjà plusieurs semaines que j'essaye de résoudre ce problème...

[Mightysteph]

Bonjour,

Désolé je n'ai pas encore la solution mais je suis à sa recherche. J'ai exéctement la même problèmatique.
Du nouveau sur la question ?

Merci

[Mightysteph]

OK trouvé

L'idée est la suivante :
1 classeur excel avec N feuilles et sur chaque feuille un TCD OLAP.
La 1ère feuille (F1) contient le TCD qu'on va appeler "TCD_MAITRE".
On met à jour le filtre (par ex : Date) sur ce TCD.
La mise à jour se répercutent sur tous les autres TCD ("TCD_ESCLAVE") des autres feuilles.

On peut par exemple coder la macro sur l'évènement activation des feuilles à mettre à jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Activate()
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'On prend la main sur le TCD courant
ActiveSheet.PivotTables("TCD_ESCLAVE").ManualUpdate = True
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'On vide le filtre Date du TCD courant
ActiveSheet.PivotTables("TCD_ESCLAVE").PivotFields("[Date]").VisibleItemsList = Array("")
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'On affecte le filtre Date du TCD maitre
ActiveSheet.PivotTables("TCD_ESCLAVE").PivotFields("[Date]").VisibleItemsList = _
        Worksheets("F1").PivotTables("TCD_MAITRE").PivotFields("[Date]").VisibleItemsList
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' On reload le TCD courant
ActiveSheet.PivotTables("TCD_ESCLAVE").ManualUpdate = False
 
End Sub

Voila, exemple largement perfectible mais qui à le mérite de fonctionner.