Conversion feuille en pdf puis envoi par outlook

Bonjour,

J'ai un fichier Excel 2010 avec plusieurs onglets.
Sur l'un d'entre eux 'KPIs' j'ai des TCD avec une source sur un autre onglet.
Je cherche à convertir l'onglet avec les TCD au format PDF pour l'envoyer par email via l'outlook de mon entreprise ; et si possible supprimer le pdf par la suite.
Sachant que le j'arrive à générer le pdf avec la date en variable.

Merci beaucoup pour votre aide

voici le vba que j'utilise :



Sub Envoyer_PDF_par_email()
Dim messageHTML
On Error GoTo errorHandler
'on crée le fichier PDF dans le même dossier que le fichier source
Sheets("KPIs").ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
ActiveWorkbook.Path & "\" & "Suivi des templates_20151002.PDF" ' A modifier
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Fichier de suivi des templates"
objMessage.From = "mon_adresse_email.com" 'adresse mail de l'expéditeur n'est pas obligatoire
objMessage.To = mon_destinataire_email.com" 'Email du destinataire doit-être correct ici
objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en PJ le fichier de suivi des templates à date" & vbCrLf & "bonne réception"
piece_jointe = ActiveWorkbook.Path & "\" & "Suivi des templates_20151002.PDF" ' A modifier
messageHTML = "Ceci est un message en HTML"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail1.inetpsa.com" ' A modifier
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon_adresse_email.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon_mot_de_passe_session"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objMessage.Configuration.Fields.Update
objMessage.AddAttachment (piece_jointe) 'On ajoute la pièce jointe, il est possible d'envoyer plusieurs pièces
'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
objMessage.Send
MsgBox "Le mail a été bien envoyé !"
'la feuille PDF créée est supprimée après l'envoi
Kill ActiveWorkbook.Path & "\" & "Suivi des templates_20151002.PDF" ' A modifier
'si erreur on sort de la procédure
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description
End Sub