envoi feuille excel E-Mail

bonjour


activesheet.copy
activeworkbook.sendmail ....... 'ici les paramètres de la méthode sendmail
activeworkbook.close savechanges:=false

bye
steph

Essai cette macro

Sub envoyermail()

Dim mailad As String
Dim msg As String
Dim subj As String
Dim urlto As String
mailad = Range("i4")'correspond à l'adresse
subj = Range("i5")' correspond au sujet
msg = Range("A1:G50").Copy ' correspond à la plage à insérer dans votre mesage

MsgBox "Une fois sur la page E-mail Outlook ; choisir format HTML dans le menu Format puis placez-vous sur la partie message et appuyer sur les touches Ctrl-V", vbOKOnly + vbExclamation, "Envoi par mail"
urlto = "mailto: " & mailad & "?subject=" & subj & " &body=" & msg
ActiveWorkbook.FollowHyperlink Address:=urlto

End Sub


Corrdialement
ROBERT René
www.utilsfr.fr.fm