Export PDF n'applique pas ma sélection sur Segment
Bonjour à tous,
Après avoir essayé tout ce que je pouvais, j'en viens une nouvelle fois à demander votre aide.
Le défis du jour étant le suivant:
Le code ci-dessous fonctionne sans erreur et dépose une "impression PDF" de la page en cours dans le répertoire réseau souhaité.
Par contre, la sélection que je demande d'appliquer dans le segment CS ne s'applique pas, toutes les données de la feuille sont exportées.
Je n'ai aucune erreur d'exécution, la tâche se déroule mais semble totalement ignorer ma demande de sélection.
Si quelqu'un peut m'aider . Merci
Sub BoutonExport_PDF()
Dim wbk As Workbook
Dim Sh As Worksheet
Dim Name As String
Application.ScreenUpdating = False
Set wbk = ActiveWorkbook
For Each Sh In wbk.Worksheets
Next Sh
'Format pour imprimer la plage de colonne sélectionnée
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "A:X"
End With
With ActiveSheet
'Supprime la sélection déjà présente dans le segment CS
.PivotTables("TCD").PivotFields("CS").ClearAllFilters
'Active le filtre sur la valeur Région Sud dans le segment CS
.PivotTables("TCD").PivotFields("CS").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="Région Sud"
End With
Application.DisplayAlerts = True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\CS_SUD\ANALYSE_" & Format(Date, "mmmm-yyyy") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Application.DisplayAlerts = False
Set wbk = Nothing
End Sub
Alternative temporaire mais qui fonctionne est d'ajouter mon champs CS comme filtre ou colonne de mon TCD est là le code vba fonctionne.
C'est peut être donc un problème d'identification de segment vs pivot.field.