XL 2019 Imprimer en un seul PDF plusieurs onglets avec des zones d'impressions différentes

[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

 

[Claudy]

Bonjour,
après avoir défini la zone d'impression,
utilise ceci:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"I:\dossier destinataire & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
A+
Claudy

 

[Claudy]

Autre solution: l'appareil photo d'excel:
Tu photographies la feuille 2, coller en dessous du tableau Feuille1
Idem feuille 3
Ce que tu modifie dans feuille 2 ou 3, se trouve direct en feuille1
exemple annexe
A+
Claudy

 

[kiki29]

Salut, @patricklopez66 et par pitié formate ton code !
tu vas en ouvrir combien de posts ? j'attendais ton avis ici avant de te donner une solution, je ne suis pas un adepte du "tout cuit".

 

[pat66]

Salut, @patricklopez66 et par pitié formate ton code !
tu vas en ouvrir combien de posts ? j'attendais ton avis ici avant de te donner une solution, je ne suis pas un adepte du "tout cuit".

Salut KIKI 29, tu as raison j'ai poster plusieurs fois par erreur et je m'en excuse, je n'ai pas fais exprès crois moi, quel intérêt ?

je vais répondre à ton post

 

[Claudy]

Salut, @patricklopez66 et par pitié formate ton code !
tu vas en ouvrir combien de posts ? j'attendais ton avis ici avant de te donner une solution, je ne suis pas un adepte du "tout cuit".

Merciiii
Claudy

 

[pat66]

Autre solution: l'appareil photo d'excel:
Tu photographies la feuille 2, coller en dessous du tableau Feuille1
Idem feuille 3
Ce que tu modifie dans feuille 2 ou 3, se trouve direct en feuille1
exemple annexe
A+
Claudy
Regarde la pièce jointe 1070779

Bonsoir Claudy, je connais ces méthodes mais je sais qu'il existe une façon de définir par macro les zones d'impressions pour chaque onglets et c'est ce que je recherche,
En tout cas merci pour ton aide