Bouton pour envoyer en pièces jointe une sélection de Excel par mail

Bonjour,

J'ai une partie d'un tableau que je veux envoyer en mail dans une pièces jointe en format pdf avec Outlook.

Pouvez vous m'aider?

Bonjour Jeromechant,

Voici un exemple de ce qu'on peut faire

@+

Bonjour,

C'est super merci.

dans mon besoin, j'ai 2 pdf à envoyer, l'une dans une feuille 1 et l'autre en feuille 2, toujours avec une sélection de la feuille.

c'est possible?

Re,

Oui il suffit de doubler les variables et les lignes de code

J'ai essayer ma je ne sais pas les quel qui sont à doublé?

Re,

Vraiment désolé alors, mais je ne réponds qu'une seule fois à un sujet

Exprimez correctement votre besoin la prochaine fois.

pardon,

dans mon besoin: j'ai 2 pdf à envoyer dans le mail

, l'une dans une feuille 1 et l'autre en feuille 2, toujours avec une sélection de la feuille.

Vous me dite qu'il faut doublé les variante et ligne de code mais quan je le fait ca bug.

Dans mon mail, je souhaite avoir 2 pdf en pièce jointe,

l'une avec la sélection de la feuille1

et une autre avec la sélection de la feuille 2

merci d'avance

comment modifier le sript pour y arrive?

' Merci de respecter la propriété intellectuelle - NE PAS SUPPRIMER les lignes ci-dessous SVP
' Code développé par : BrunoM45
' https://forum.excel-pratique.com/membre/15789
Sub EnvoyerPlagePDF()
  Dim sPath As String, sFileName As String
  Dim OutObj As Object, eMail As Object
  Dim Plg As Range
  ' Initiamiser les variables
  sPath = ThisWorkbook.Path & "\"
  sFileName = "Plage-A15_J21.pdf"

  ' Définir la plage à imprimer
  Set Plg = Range("$A$15:$J$21")

  With ActiveSheet
    ' Définir la zone d'impression
    .PageSetup.PrintArea = Plg.Address
    ' Exporter au format PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sFileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ' Supprimer la zone d'impression
    .PageSetup.PrintArea = ""
  End With
  ' Envoyer le PDF par mail
  ' Création d'une instance Outlook pour envoyer un mail
  Set OutObj = CreateObject("Outlook.Application")
  Set eMail = OutObj.CreateItem(0)
  ' Avec mon objet Email
  With eMail
    .Display  ' Afficher le mail pour afficher la signature
    ' Destinataire(s) du mail
    .To = "emaildestinataire@fai.fr"
    ' Copie du mail
    .CC = "emaildestinataire@fai.fr"
    ' Sujet de l'eMail
    .Subject = "Ceci est le sujet de mon mail"
    ' Corps du mail avec signature à la fin
    .HtmlBody = "Bonjour," & "<BR><BR>" _
    & "Vous trouverez ci-joint le fichier " & sFileName & "<BR><BR>" & .HtmlBody
    ' Joindre le fichier précédemment créé
    .Attachments.Add sPath & sFileName
    ' Envoyer l'email
    '.Send
  End With
  ' Effacer les variable objet
  Set eMail = Nothing: Set OutObj = Nothing
  ' [OPTIONEL] Supprimer le fichier du répertoire
  Kill sPath & sFileName

End Sub