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:
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]
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:
Code:
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]