Envoi mail avec pièce jointe

Bonjour a tous,

j'ai besoin d'aide car je ne trouve pas une solution.

j'ai un code VBA qui permet d'envoyer un mail

Sub envoi_email()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Dim ligne As Long
ligne = ActiveCell.Row
OutMail.To = Sheets("DATABASE").Cells(ligne, 19).Value
OutMail.CC = Sheets("DATABASE").Cells(ligne, 36).Value
OutMail.Subject = Sheets("DATABASE").Cells(ligne, 34).Value
OutMail.Body = "xxxx " & Sheets("DATABASE").Cells(ligne, 7).Value & "." & vbCrLf & _
"xxxx " & vbCrLf & vbCrLf & _
"xxxxx "
OutMail.Display
End Sub

mais ce que je veux une pièce jointe. la pièce jointe est un fichier PDF est la feuille 'certificat'. directement attacher sur outlook

merci bcp

Bonjour Nizar2015

Une petite recherche avec notre ami (ou pas) Google
https://www.google.com/search?q=vba+envoi+mail+avec+pdf

Vous aurait permis de trouver ceci
https://forum.excel-pratique.com/excel/vba-envoi-mails-automatiquement-avec-fichier-joint-en-pdf-t94...

Bonne journée

Bonjour,

Voici un essai avec le chemin du fichier à joindre à compléter dans le code :

Sub envoi_email()
Dim ligne As Long
ligne = ActiveCell.Row
spath$ = "chemin de ma piece jointe" '<<< ICI
with CreateObject("Outlook.Application")
    with .CreateItem(olMailItem)
        .To = Sheets("DATABASE").Cells(ligne, 19).Value
        .CC = Sheets("DATABASE").Cells(ligne, 36).Value
        .Subject = Sheets("DATABASE").Cells(ligne, 34).Value
        .Body = "xxxx " & Sheets("DATABASE").Cells(ligne, 7).Value & "." & vbCrLf & "xxxx " & vbCrLf & vbCrLf & "xxxxx "
        .attachments.add sPath
        .Display
    end with
end with
End Sub

Cdlt,

Edit : Salut Bruno !