Submail

Bonsoir,

Actuellement j'utilise la macro suivante afin d'enregistrer un de mes onglet en pdf :

'PDF
 Dim Nomfichier As String, Chemin As String
 Nomfichier = Format(Now() - 0, "dd_mmmm_YY")
 Chemin = Sheets("X").Range("N21") & "\"
 Sheets("X").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier & ".pdf"

Par la suite, on part la macro suivante afin d'envoyer le doccument par courriel :

'envoi par mail
 If CheckBox1 = True Then
 Workbooks("DEV_VERSION1_2015_DENYSF 2.xlsm").SendMail Recipients:=Range("G15").Value, _
                           Subject:="Rappot de balancement - Délices en vrac :  " & Format(Date, "ddd mmmm yyyy"), _
                           ReturnReceipt:=Trueü
 End If

J'aimerais donc, retires ses deux macro, et utiliser une macro qui va me permettre d'envoyer par email le PDF qui à été créer, plutôt que d'envoyer le fichier complet. Mais comme je suis débutant en VBA j'ai chercher pendant plusieurs heures, afin que que :

le nom du PDF enregistrer soit :

Format(Now() - 0, "dd_mmmm_YY"

le chemin d'enregistrement du pdf soit :

Sheets("X").Range("N21") & "\"

le destinataire soit :

Range("G15").Value, _

et je n'ai pas le courage de tout recommencer.

pouvez vous m'aider a correctement configurer une macro ?