Parcourir Filtre pour impression PDF (Excel 2016)

Résolu/Fermé

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - Modifié le 20 nov. 2017 à 11:23
NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 - 20 nov. 2017 à 11:21

Bonjour,

J'aimerais effectuer 1 pdf au nom de la sélection selon une boucle sur filtre de TCD.
Quelqu'un pourrait-il m'aider?

NaXiLeAn_2.0

A voir également:

Parcourir Filtre pour impression PDF (Excel 2016)
Spouleur d'impression - Guide
Lire le coran en français pdf - Télécharger - Histoire & Religion
Liste déroulante excel - Guide
Photo filtre gratuit - Télécharger - Retouche d'image
Formule excel - Guide

1 réponse

Réponse 1 / 1

NaXiLeAn Messages postés 112 Date d'inscription mercredi 27 juillet 2016 Statut Membre Dernière intervention 2 juin 2020 1
20 nov. 2017 à 11:21

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom"). _
        CurrentPage = "Cohen"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\hr\Desktop\Cohen.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nom"). _
        CurrentPage = "Heleski"
    Selection.Copy
    Application.CutCopyMode = False
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\hr\Desktop\Heleski.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

Newsletters