Piece jointe dans un mail

[nicoland]

Bonjour,

J'ai obtenu ce code dans XLD qui marche très bien, il me manque juste quelque chose:

- ajouter en piece jointe le fichier dont le chemin se trouve dans la cellule A2

ou

- ajouter en pièce jointe la feille active du fichier

Le code que j'ai est le suivant:

Sub ENVOIS_MAIL()

Dim HyperLien As String
Dim i As Integer
Dim feuille As Worksheet
Dim Ind As Integer

Application.ScreenUpdating = False

Set feuille = ActiveWorkbook.Worksheets('feuil1')

'Définition du message
'mailto : adresse mail du destinataire
'Subject : sujet du message
'Body : corps du message

HyperLien = 'mailto:toto@lala.com' & '?' & 'Subject=piou piou ' & Date & ' '
HyperLien = HyperLien & '&Body=Votre fichier datant du ' & Date & ' est en piece jointe. '

'Ouverture de outlook et entrée des données prédéfinies ci-dessus
ActiveWorkbook.FollowHyperlink HyperLien

End Sub

Merci pour votre aide

[file name=PIECE_JOINTE.zip size=8525]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PIECE_JOINTE.zip[/file]