XL 2019 Imprimer PDF avec zones différentes selon onglets

[pat66]

Bonjour à tous
Mon problème est que je n'arrive pas à écrire correctement cette macro pour qu'elle imprime les feuilles désignées avec des zones d'impression différentes

j'ai bien pensé à y intégrer ceci , mais cà ne fonctionne pas :
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$27" ou Worksheets("Feuil1").PageSetup.PrintArea = "$A$1:$C$5"

mon souhait est de pouvoir imprimer en PDF les zones suivantes :
Feuil 1 = A1:M27
Feuil 2 : A5: R10
Feuil3 : A4:S20

je vous remercie de votre aide




'Private Sub PDF_Click()
' Dim Mdp As String
' Mdp = Application.InputBox("Veuillez introduire votre mot de passe")
' If Mdp <> "13050" Then MsgBox "Accès refusé !": Exit Sub
' Application.EnableEvents = False
' Dim sRep As String
' Dim sFilename As String
' If Sheets("Feuil1").Range("G27") = "" Then
' If MsgBox("Vous devez préciser le nom du client !", vbOKOnly + vbInformation, "Excel vous informe") = vbAbort Then Exit Sub
' Else
' ChDir ThisWorkbook.Path
' Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
' sRep = ThisWorkbook.Path
' sFilename = ThisWorkbook.Name
' sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
'
' ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
' Sheets("Feuil1").Range("G27"), Quality:=xlQualityStandard, _
' IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'
' If OutputFilename = "" Then
' MsgBox "La Création du fichier PDF est terminée."
' End If
' End If
'
' Application.EnableEvents = True
'End Sub

 

[pat66]

Phil,

Je suis confus car je n'avais pas compris que NFichier englobait les 3 paramètres du nom du fichier
cela fonctionne très bien
un grand merci à toi et une bonne soirée

Patrick

 

[pat66]

Bonjour Phil, Bonjour Le forum

Lorsque le PDF a été créé, tous les onglets exportés restent activés, est il possible de les désactivés sauf le Sh1, par exemple


Merci et belle journée

 

[Phil69970]

Patrick, le forum

'........

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & NFichier, IgnorePrintAreas:=False


Sh1.Select '<=== A rajouter


MsgBox "Le fichier a été enregitré." & vbCrLf & vbCrLf & "Ici ==> " & ThisWorkbook.Path & "\" & vbCrLf & vbCrLf & _

"Sous le nom : " & NFichier & ".pdf", 48, "Enregistrement fichier en PDF ..."

'........

Bonne journée

 

[pat66]

C'est top, Un grand merci à toi Phil

belle journée a toi aussi