Envoyer une Feuille Excel par mail

[Fermé]
Signaler
Messages postés
4
Date d'inscription
mardi 15 décembre 2009
Statut
Membre
Dernière intervention
23 mars 2010
-
 Christophe -
Bonjour a tous,
Je cherche à envoyer une feuille nommé ‘Feuille1’ de mon classeur nome ‘Paris’ Sous forme de Pièce jointe par Email (HTML) pour deux Client, Ex :" olivier@hotmail.fr , yev@hotmail.fr" avec une seule commande:"Envoyer".
La commande suivante ma fiche ---->"Message" sans la page (Piece Jointe) :
1-je doit séléction ma feuille avec ma souris '$A$1:$H$58
2-Coller
3-Envoyer

Private sub envoyer_click()
Dim MailAd As String
Dim Msg As Range
Dim Maplage As Range
Dim Subj As String
Dim URLto As String
MailAd = "olivier@hotmail.fr,yev@hotmail.fr"
Subj = "Envoi d'une DEMANDE DE CONTRAT"
Set Maplage = Application.InputBox(Prompt:="Sélectionnez la plage à imprimer", Title:="Imprimer", Type:=8)
Maplage.Copy
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & "Une fois sur le corps d'Outlook faites coller"
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

1 réponse


Bonjour. Envoyer une feuille me parait difficile.
Prendre une image de la feuille et l'envoyer ok
Le mieux envoyer le fichier Excel. beaucoup plus simple.
Pourquoi faire des choses compliquées ??.
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

Bonjour jacquus93

J'aimerais avoir une macro simple me permettant d'envoyer une seule feuille d'un classeur Excel.
Adresse: A1
Sujet: A2
Texte du message dans A2

Si le tout n'est pas possible, il y a t'il une solution?

Bonne journée.