Transformation d'un fichier excel en PDF par macro

Bonjour,

Voila, j'utilise le code si dessous qui a été fourni par Mike 31 pour une autre utilisateur que moi.
Cela fonctionne impec, mais le seul souci que j'ai, est que j'utilise ce code pour des commande de mazout pour différents engins ferrovières et je voudrais pouvoir garder une preuve de commande.
J'ai supprimé la ligne "Kill..............., le fichier PDF reste bien dans un dossier, mais quand je lance une nouvelle commande ce fichier est remplacé par le fichier de la nouvelle commande, comment pourrais-je faire pour garder tous les fichiers automatiquement
D'avance je vous remercie

la feuille Devis est créée en extension PDF, Envoyée et supprimée.
coller ce code dans un module et l'associer à un bouton ou verra plus tard de l'associer à un activeX
renseigner cette ligne du code en remplaçant les xxxx par l'adresse mail du destinataire
objMessage.To = "xxx.xxxxx@free.fr"
et éventuellement objMessage.From = "adresse mail expéditeur" ou simplement un "Nom" entre guillemet
mettre à jour le SMTP qui est celui de votre fournisseur d'accès


Sub Envoi_Feuil_Excel_en_PDF()
Dim messageHTML
On Error GoTo errorHandler
'on cré le fichier PDFdans le même dossier que le fichier source
Sheets("Devis").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Devis.pdf"

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Sujet du Message"
objMessage.From = "xxx.xxxxxx@free.fr" 'adresse mail de l'expéditeur n'est pas obligatoire
objMessage.To = "xxx.xxxxx@free.fr" 'Email du destinataire doit-être correct ici
objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre facture" & vbCrLf & "en votre aimable réglement"
piece_jointe = ActiveWorkbook.Path & "\" & "Devis.pdf"
''piece_jointe = "C:\Documents and Settings\Les Lagouanère\Bureau\0917_001.pdf" 'chemin du fichier à envoyer en piéce-jointe
'piece_bis = "C:\Documents and Settings\Les Lagouanère\Bureau\Cligno.xls" ' Si on souhaite envoyer plusieurs pièces les déclarer
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") = "smtp.free.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
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 est supprimée après l'envoi
Kill ActiveWorkbook.Path & "\" & "Devis.pdf"
'si erreur on sort de la procédure
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description
End Sub