Enregistrer sous en envoyer au format PDF

Bonjour,

Me voilà perdu avec plusieurs macro que je n'arrive pas à fusionner

Voici une première qui me permet d'enregistrer ma feuille active au format PDF :

Sub Enreg_Pdf()
Dim LaDate As String, LeParcours As String, LeRep As String
LaDate = Format(Date, "yyyymmdd")
LeParcours = Range("N2").Value
LeRep = ThisWorkbook.Path & "\parcours\"  ' à adapter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    LeRep & LaDate & "_" & LeParcours & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
End Sub

Une seconde m'ouvre une boite de dialogue pour sélectionner l'emplacement de l'enregistrement :

 ActiveSheet.SaveAs Filename:=Application.GetSaveAsFilename

-> Est il possible de fusionner ces deux macros pour enregister ma feuille active en PDF tout en sélectionnant l'emplacement?

Enfin, ce même fichier PDF doit être envoyé par mail. J'utilise actuellement ce code mais l'envoi se fait en xls... Est il possible d'en changer pour du PDF ?

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = Range("B2")
Destinataires(2) = Range("B3")
Destinataires(3) = Range("B4")
Sujet = "Coffre CC"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Feuil2").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Merci d'avance pour voréponse,

Bonne journée caniculaire,

Loïc

Bonjour,

je ne sais pas si cela se fait, mais je me permets de "uper" ma demande car je suis toujours coincé

Bonne journée,

Loïc

Bonjour,

le code pour envoyer au format pdf se trouve dans le Module2 :

https://forum.excel-pratique.com/excel/enregistrer-une-feuille-sous-pdf-et-envoyer-par-mail-t62441.html

Bonjour,

j'avais bien vu ce sujet ci, cependant, je ne sais pas du tout comment réunir toutes mes infos dans une même macro

Désolé,

Merci pour l'aide en tout cas

Bonne soirée,

Loïc

Re,

à tester

Bonjour,

Merci pour le fichier

Je test le tout demain car je suis sous mac chez moi et ça ne fonctionne pas !

Je vais tester demain sur les ordinateurs du travail sous windows.

Je fais le feedback demain

Encore merci,

Bonne journée,

Loic

Re bonjour,

une autre version avec un seul bouton cette fois.

Il est possible de sélectionner plusieurs onglets.

Bonjour,

Désolé pour le temps de réponse

Tout marche très bien.

Il n'y a qu'une petite chose c'est que le PDF se crée en Portrait alors que j'en aurais besoin en paysage mais je ne sais pas où modifier cela dans le code.

Merci infiniment,

Bonne journée,

Loïc

Bonjour,

si la mise en page est paramétrée en paysage, le PDF sera en paysage.

Très bien

Merci infiniment pour tout ca

Je ne sais pas si tu as vu, j'ai lancé un autre sujet aujourd'hui qui concerne le même tableau mais une autre fonction.

Étant hors sujet vis à vis de celui ci, j'ai préféré créer une nouvelle demande.

Si l'un de vous sait y répondre, n'hésitez pas

Encore merci,

Bonne soirée,

Loïc

Merci de marquer le sujet comme résolu si la réponse te convient.

La réponse proposée fonctionne très bien.

Je t'en remercie encore

Je peux clôturer ce post comme résolu,

Bonne journée,

Loîc