Discussion :

[imslux]

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.

[kiki29]

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

[imslux]

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 :

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
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