XL 2016 Impression Mail+PDF complexe avec sélection de pages

[Fredox]

Bonjour,

J'ai cette macro pour automatiser l'envoie de ma feuille Excel en PDF par mail.
J'aimerai que le document selon le besoin ponctuel ne prenne en compte que les pages 1,2,5,6
C'est possible ?

Merci

Sub MailPDFparc()

ActiveWorkbook.Save

Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim S As Shape
Dim sNomFic As String, sRep As String, WshShell As Object

Dim LaDate As String, Client As String, Textefin As String, chemin As String, Ville As String

    LaDate = Format(Now, "yyyy.mm.dd")
    Client = Range("A1").Value
    Ville = Range("A2").Value

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

' Créer une instance Windows Script pour retrouver le chemin du bureau
Set WshShell = CreateObject("WScript.Shell")
sRep = WshShell.SpecialFolders("Desktop")
Set WshShell = Nothing

' Définit le nom du fichier à enregistrer
sNomFic = LaDate & " - Parc(s) - " & Client & " " & Ville & ".pdf"

' Enregistrer la feuille en PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & sNomFic, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

'ActiveSheet.PageSetup.PrintArea =
'IgnorePrintAreas:=False

Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = ""
        .Cc = ""
        .Attachments.Add (sRep & "\" & sNomFic)
        .Subject = "Synthèse parc " & Range("A1") & " / " & Range("A2") & " au " & Format(Now, "dddd dd mmmm yyyy")
        .Body = "Bonjour M" & Chr(10) & Chr(10) & "Veuillez trouver ci-joint" & Format(Now, "Dddd dd mmmm") & "." & Chr(10) & Chr(10) & "Cordialement,"
        .display
    End With
    
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
Kill (sRep & "\" & sNomFic)
End Sub

 

[Fredox]

J'imagine que ce n'est pas possible...

 

[kiki29]

Salut, voir

ici Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant
PDFCreator 1.7.3 : Découpage d'un fichier Pdf en fichiers de n pages
PDFCreator 1.7.3 : Découpage d'un fichier Pdf en fichiers des pages x à y
PDFCreator 1.7.3 : Découpage d'un fichier Pdf en fichiers unitaires (2)
Acrobat : Découpage d'un fichier Pdf en fichiers des pages x à y

pour info : depuis Word via Acrobat

Étant définitivement fâché avec le Belge et ses mignons de couchette de Developpez.com, j'ai supprimé l'ensemble des téléchargements ( 110 au bas mot ), d'où les liens internes de téléchargement caduques. Ces téléchargements sont toujours disponibles sur mon PC, si quelqu'un en fait la demande.

Sinon un échantillon en PJ à adapter à ton contexte

 

[Fredox]

Bonjour kiki29,
Merci pour ta réponse, je ne suis pas sur d'avoir le niveau là.
Je regarde ça.