VBA - Impression pdf avec sélection depuis un Slicer

Bonjour,

Je travaille sur un rapport excel présentant plusieurs tableaux croisés dynamiques pilotés depuis un slicer

Je souhaiterai automatiser via un codage VBA l'impression en pdf de 2 sheets en fonction de la sélection du slicer. De façon automatique, un bouton qui lancerai l'impression de 2 feuilles "Assets - Overview" et "Liabilities - Overview" (les zones d'impression sont déja définies) pour chaque sélecteur du slicer.

Une pression sur le bouton lancerai l'impression de deux sheets (toujours les mêmes) en fichiers pdf et ce de façon dynamique vu qu'en fonction du rapport il se peut qu'il y est de 1 à n sélecteurs dans le slicer. système de boucle)

Process attentu :
1/ sélection automatique d'un filtre du slicer
2/ impression des deux feuilles
3/ reset du sélecteur
4/ sélection d'un nouveau filtre
etc...

J'espere être assez clair, je suis devant mon ordi donc je peux répondre à vos questions

Merci d'avance pour votre retour

M.

Salut, ce n'est pas le bon forum, celui-ci n'est pas consacré à VBA

Sinon voir ici
Tout en bas de ce post # 1 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant
A adapter à ton contexte

Merci, il n'est pas intégré la notion de sélection automatique à partir d'un slicer, l'impression de document en pdf ne constitue pas mon principal obstacle, c'est surtout le système de boucle dans le choix des sélection du slicer

Un bout de code VB dans ce genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub SelectItems()   Dim sI As SlicerItem For Each sI In ActiveWorkbook.SlicerCaches("Slicer_Client_Name").SlicerCacheLevels.SlicerItems Sheets(Array("Assets - Overview", "Liabilities - Overview")).Select Sheets("Assets - Overview").Activate   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Sheets("Liabilities - Overview").Activate   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _ OpenAfterPublish:=False     Next   End Sub

---

Mais erreur 400 apparaît :(