Bonjour,
Encore un nouveau défis pour vous
J'utilise le code ci-dessous à partir d'une feuille. L'exécution permet de forcer la valeur "74" au segment "U", puis d'exporter le résultat au format PDF pour l'enregistrer dans un répertoire réseau.
Tout fonctionne, mais j'aimerais pouvoir exécuter ce code en applicant la valeur sélectionnée par l'utilisateur dans le segment U pour lui permettre d'être autonome.
En gros et très vulgairement, j'aimerais remplacer Value1:="74" par Value1 = CurrentValue
Merci pour votre aide et pistes de solutions
Sub CopyExport_TEST()
Dim wbk As Workbook
Dim Sh As Worksheet
Dim Name As String
Dim valeur As String
Application.ScreenUpdating = False
With ActiveSheet
'Supprime la sélection déjà présente dans le segment U
.PivotTables("Tableau croisé dynamique1").PivotFields("U").ClearAllFilters
'Active le filtre sur la valeur 74 dans le segment U
.PivotTables("Tableau croisé dynamique1").PivotFields("U").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:="74"
End With
ThisWorkbook.Sheets(Array("NORD")).Copy
Set wbk = ActiveWorkbook
For Each Sh In wbk.Worksheets
Next Sh
'Format Print Area to one Page
With ActiveSheet.PageSetup
ActiveSheet.PageSetup.PrintArea = "A:X"
End With
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\" & Format(Date, "mmmm-yyyy") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.DisplayAlerts = False
wbk.Close
Set wbk = Nothing
End Sub