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 s'il vous plait?
Voilà ce que j'ai déjà commencer à faire (les boucles ne sont pas encore acquises) :
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
D'avance merci pour votre aide.