envoi feuille excel E-Mail

[Jeannot]

Bonjour,
J'utilise Excel et outlook 2000 ayant constitué un classeur comportant plusieurs feuilles excel, j'aimerais trouver la fonction (que je ne vois pas apparaitre) permettant d'envoyer par E-mail une feuille (et non le classeur entier).

Comment faire?

Merci de votre réponse

Jean

 

[STéphane]

bonjour


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

bye
steph

 

[ROBERT]

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