Transformer .xls en .xml lors d'envoi par mail

Bonjour,

j'ai un petit soucis avec mon nouveau projet excel 🙂
j'ai résolu tous mes autres soucis grâce à ce forum, donc je viens vous embêter de nouveau ^^ 😛

j'ai donc mon document excel, et tout en bas, j'ai inséré un bouton "envoi par mail"

j'y ai affecté cette macro :

-----------
Sub Envoi_mail_feuille()
Dim Wbk_active As Workbook
'initialisation des variables
Dest = "monmailXXXXX@mail.fr"
Sujet = "Mon fichier EXCEL EN XML"
' copie la feuille à envoyer
ThisWorkbook.Sheets("Feuil1").Copy
' envoi du fichier
Set Wbk_active = ActiveWorkbook
SendKeys "{E}"
Wbk_active.SendMail Dest, Sujet, True
' fermeture de la copie sans l'enregistrer
Wbk_active.Close savechanges:=False
Set Wbk_active = Nothing
End Sub
----------------------

j'ai testé comme cela, je reçois bien par mail mon fichier excel.
Mais en fait, ce que je veux par mail, ce n'est pas mon fichier .xls je voudrais recevoir ce document en format "données XML" .xml

est-ce possible ?

merci d'avance.

Lili