submail

[foster_1883]

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 courrage de tout recommencer.

pouvez vous m'aider a corectement configurer une macro ?