Afficher les pages de filtre de rapport VBA

Bonjour,

Voici mon problème, j'aimerais pouvoir séparer un tableau croisé dynamique par collaborateur (une colonne avec leur identifiant) et les imprimer.

J'ai trouvé la fonctionnalité "Afficher les pages de filtre de rapport" et j'arrive à imprimer l'ensemble des feuilles générées mais il m'as été demandé de faire cela seulement en appuyant sur un bouton lié à une macro.

Etant débutant en VBA, je ne parviens pas à créer un tel bouton.

Pourriez-vous m'indiquer s'il existe une méthode pour faire cela ?

Merci d'avance !!

Bonjour et bienvenue,

Merci de joindre un fichier à ta demande pour une aide adaptée du forum.

Cdlt.

Voici le fichier que j'utilise

Re,

Un exemple à adpater.

Cdlt.

Sub CreateNewPivotTables()
Dim pt As PivotTable
    Set pt = ActiveSheet.PivotTables(1)
    pt.showpages PageField:="Collaborateur"
End Sub

Merci pour ce coup de main !

La création des feuilles se fait correctement, en revanche sur la page principale les cases sont affichées comme (blank), comment cela se fait-il ?

Et le bouton actualiser n'ajoute plus les lignes du premier tableau dans le nouveau.

Pour expliquer ma situation je ne pratique pas le VBA et il m'a été demandé de faire cela sur un fichier déjà existant et sur lequel je ne comprend pas le script ...

Re,

J'utilise une version anglaise.

D'où les (blank). Dans ton vrai fichier, tu auras des (vide).

Pour le bouton Actualiser, j'avais inhibé la procédure.

Cdlt.