0
Comment puis-je faire modifier dynamiquement le nom du fichier PDF en fonction de Sel_Manager (liste déroulante1)? Les spectateurs aimeraient imprimer plusieurs fichiers PDF et les afficher sur l'écran en même temps. Merci d'avance!Modifier dynamiquement le nom de fichier - ComboBox Excel Imprimer
Private Sub CommandButton1_Click()
Dim Sel_Manager As String
'Specify headers to be repeated at the top
With ActiveSheet.PageSetup
.PrintTitleRows = "$5:$9"
.PrintTitleColumns = "$B:$M"
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'Manager selection through simple Inputbox
Sel_Manager = ComboBox1
'Insert autofilter for worksheet
Cells.Select
Selection.AutoFilter
'Select manager defined in inputbox
ActiveSheet.Range("B14", Range("M14").End(xlDown)).AutoFilter Field:=1, Criteria1:=Sel_Manager
'Select range to be printed and specify manager in filename
ActiveSheet.Range("B14", Range("M14").End(xlDown)).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Manager.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
ActiveSheet.ShowAllData
End Sub
'sheet1.sel_manager.value et ".pdf"' – HA560
Je reçois une "méthode ou membre de données introuvable" erreur? J'ai vérifié et c'est Sheet1 que j'utilise –