Discussion :

[elghazy]

Bonjour tout le monde,
j'ai besoin de votre aide SVP.
j'ai crée un TCD avec exil 2007, avec un filre qui contient 150 Magasins,
Ma mise en page est réglé. je cherche une macro qui me permet d'imprimer tout les filtres que j'ai dans mon TCD ( les 150 magasins ) c'est très long de filtre chaque magasin a la fois .
est ce qu'il y a une macro qui passe a travers tout les filtes est lance l'impression ?
Merci pour votre aide

[Stef999]

Bonjour,

Sans utiliser de code, vous pouvez générer une feuille par valeur d'un champ placé en zone "Filtre du Rapport":
Dans l'onglet Outils de TCD / Options, cliquez en haut à gauche sous le bouton "Options de tableau croisés dynamiques", cliquez sur la flèche à droite de "options" et choisissez "Afficher les pages de filtre de rapport" cela génère une feuille par magasin dans votre cas ... reste à imprimer les feuilles ...

Maintenant par code :

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
Sub FiltreTCD()
 
Dim oPivotTable as PivotTable
Dim oPivotItem as PivotItem
 
Set oPivotTable = Worksheets("TCDMagasins").Range("A1").PivotTable
 
For Each oPivotItem In oPivotTable.PivotFields("Magasin").PivotItems
 
    oPivotTable.PivotFields("Magasin").ClearAllFilters
    oPivotTable.PivotFields("Magasin").CurrentPage = oPivotItem.Name
 
'ICI saisir le code pour imprimer ...
 
Next
 
End Sub

[78chris]

Bonjour

Si Magasin est en zone de filtre, il est possible de générer en un clic 150 onglets puis de les sélectionner tous et les imprimer.

Onglet Outils de TCD, Options, A gauche dérouler le boutons Options : Afficher les pages de filtre du rapport.

Si le filtre est sur (Tous) il y aura 1 onglet généré par magasin, sinon un onglet pour les magasins autres que celui déjà filtré.

[elghazy]

Merci Bcp ...c'est très apprécié