Mise à jour de TCD sur plusieurs feuilles

Version imprimable

13/12/2017, 11h33
Hulkfcp

Mise à jour de TCD sur plusieurs feuilles

Bonjour,

Je suis débutant en codage VBA et je cherche à rafraîchir plusieurs TCD sur différentes feuilles d'un même classeur.

En sommes, je voudrais que chaque mois après la mise à jour des bases de données, les TCD affichent le mois suivant avec le chiffre correspondant de manière auto.

J'espère avoir été clair,

Merci d'avance pour votre contribution,
13/12/2017, 16h48
78chris

Bonjour

Tes TCD sont liés à la même source ?

Tu peux ajouter une colonne à la source avec une formule pour obtenir 0 ou 1 selon que la ligne est ou non concerné.
Ce champ placé en champ de filtre et filtré sur 1, rendra le filtre automatique mois après mois.

Sinon le plus simple est de prévoir un segment connectés à tous les TCD : filtrer ce segment manuellement ou par VBA sera très simple.
14/12/2017, 09h43
Hulkfcp

Bonjour Chris,

Les TCD interrogent différents cubes de données.

Quel est le principe du segment ?

Merci d'avance,
14/12/2017, 22h38
78chris

Bonjour

Si tu as plusieurs cubes sources tu ne peux utiliser un segment commun.

Donc soit la colonne ajoutée à chaque source, soit une synchro des TCD par VBA.

Tu as une date ou bien un mois clairement indiqué dans tes sources ?
18/12/2017, 09h26
Hulkfcp

Bonjour,

Oui il y a bien des dates clairement définies dans mes sources.

Merci,

Bonjour

Si ton champs date est dans le TCD et dans un champ autre que page : filtre chronologqiue à adapter

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Filtrer()
'
Mois = 6
Debut = CDate("1/" & Mois & "/" & Year(Date))
Fin = DateAdd("d", -1, CDate("1/" & Mois + 1 & "/" & Year(Date)))
    For Each feuille In ActiveWorkbook.Worksheets
        For Each TCD In feuille.PivotTables
            TCD.PivotFields("Date").ClearAllFilters
            TCD.PivotFields("Date").PivotFilters.Add Type:=xlDateBetween, Value1:=Format(Debut, "dd/mm/yyyy"), Value2:=Format(Fin, "dd/mm/yyyy")
        Next TCD
    Next feuille
End Sub

18/12/2017, 14h01
Hulkfcp

Chris,

Merci pour votre réponse.

Toutefois, une erreur d’exécution "1004" : "Impossible de lire la propriété PivotFields de la classe PivotTable."

Merci,
18/12/2017, 14h39
78chris

RE

as-tu adapté le code à tes noms de champ ?
18/12/2017, 16h47
Hulkfcp

Re,

Quels champs dois-je indiquer et où, dans le code?

Merci de ton aide,
18/12/2017, 17h29
78chris

Re

Un minimum d'effort... PivotFields est un champ et ce qui suit est son nom...
18/12/2017, 22h18
Hulkfcp

J'ai essayé de modifier les champs avant de t'écrire mais sans succès. La ligne se met en surbrillance jaune alors que je mets bien 'périodes" j'ai essayé " years" le deuxième niveau également mais rien.
18/12/2017, 23h25
78chris

Re

Utilise l'enregistreur macro, filtre ton champ et constates le code obtenu.

Est-ce bien un champ de ligne ou colonne (j'ai bien précisé "dans un champ autre que page")

Tu as des regroupements si je comprends bien.

Poste une image du 1er TCD de la première feuille...
19/12/2017, 09h43
Hulkfcp

1 pièce(s) jointe(s)

Pièce jointe 335917

Voici le fichier!

Tous les mois je vais dans période et je coche une date supplémentaire qui me fait apparaître un nouveau chiffre dans la colonne total.

Ce champs "périodes" est en ligne.

Merci!
19/12/2017, 10h48
78chris

Bonjour

Et si tu mets l'enregistreur macro quand tu filtres ou dé-filtres un mois quel nom du champ obtiens-tu ?

Re,

Voici ce que j'obtiens avec l’enregistreur de macro:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro3()
'
' Macro3 Macro
'
 
'
    ActiveSheet.PivotTables("Tableau croisé dynamique3").CubeFields(3). _
        TreeviewControl.Drilled = Array(Array("[Period].&[11080]"), Array( _
        "[Period].&[2017]"))
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years]").HiddenItemsList = Array("")
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years 01]").HiddenItemsList = Array("[Period].&[2014]", _
        "[Period].&[2015]", "[Period].&[2016]", "[Period].&[2018]", "[Period].&[2019]", _
        "[Period].&[2020]", "[Period].&[2021]", "[Period].&[2022]", "[Period].&[2023]")
    ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields( _
        "[Period].[Years 02]").HiddenItemsList = Array("[Period].&[20171001]", _
        "[Period].&[20171201]")
End Sub

Merci de ton aide,

19/12/2017, 12h01
78chris

Re

Ta source est un cube : syntaxe totalement différente !

Outre les hiérarchies de date, il semble qu'il enregistre ce qu'on masque et non ce qu'on sélectionne

Code:

.PivotFields("[Period].[Years 02]").HiddenItemsList = Array("[Period].&[20171001]", "[Period].&[20171201]")

semble indiquer une désélection des du 1er oct au 1er déc.

As-tu des filtres chronologiques ou bien seulement des cases à cocher ?

Je n'ai pas de cube pour tester donc je peux difficilement t'aider...
19/12/2017, 13h53
Hulkfcp

Chris,

Autant pour moi, je ne t'avais pas précisé que les données provenaient de cubes.

Je ne fais que cocher/décocher des cases.

Merci,