envoyer un onglet par mail

[Adeus33]

Bonjour le forum

Est t'il possible d'envoyer tous le contenu d'un onglet par mail (la feuil1 par ex).
l'onglet contient du texte et un graphique (il faudrait dans la mesure du possible garder le meme format).

A noter que l'adresse @mail se trouve sur la feuil2 par exemple ainsi que l'intitulé (le titre) du mail

Je vous remerci d'avance de toute l'aide que vous pouvez m'apporter.


Adeus33

 

[MichelXld]

bonsoir

tu peux tester cette macro pour envoyer une seule feuille d'un classeur par mail

Sub envoiMail()
Sheets('feuil1').Copy ' créée une copie de la feuilles cible

'envoi mail
'ThisWorkbook.Sheets('Feuil2').Range('A1') contient l'adresse du destinataire
ActiveWorkbook.SendMail Recipients:=ThisWorkbook.Sheets('Feuil2').Range('A1')

ActiveWorkbook.Close False 'fermeture de la copie sans sauvegarde
End Sub


bonne soirée
MichelXld

 

[Adeus33]

Bonjour et merci de m'avoir répondu MichelXld

J'ai essayé ton code mais il me marque qu'il y a une erreur au moment d'envoyer le mail (j'utilise lotus notes)

J'ai créer un fichier joint avec des données fictives.

Je cherche a envoyé la feuille test par mail (pas en fichier joint mais copier les informations dans le mail afin de pouvoir l'envoyer)

J'espere que cela est réalisable.

Adeus33

PS: si quelqu'un a une solution avec fichier joint je suis quand meme preneur mais bon je prefererai l'autre

Message édité par: adeus33, à: 10/05/2006 14:08

 

[Adeus33]

fichier joint

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

Message édité par: adeus33, à: 10/05/2006 14:10

 

[MichelXld]

bonsoir

je ne connais pas Lotus Note et ne pourrai malheureusement pas t'aider

ps
tu aurais du le preciser dans ton premier message ...


fais des recherches par mot clé sur le forum et dans les archives

https://www.excel-downloads.com/search/

tu y trouveras peut etre ton bonheur


bonne soirée
MichelXld

 

[Adeus33]

Bonjour MichelXld et le forum bien evidement.

J'ai trouver un code qui fonctionne pour lotus notes et a priori pour les autres systèmes également:

Sub EnvoiUnMail()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String

MailAd = Sheets('Feuil2').Range('B3')'adresse @mail
Subj = Sheets('Feuil2').Range('B4')'Titre du mail
msg = Sheets('Feuil2').Range('B5')'message
URLto = 'mailto:' & MailAd & '?subject=' & Subj & '&body=' & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Le probleme est que je n'arrive pas a mettre plus d'une cellule dans la partie message
j'ai essayé le code suivant mais sans résultat:

msg = Sheets('Feuil2').Range('B5:H16')'message

Autre possibilité :
J'ai également trouver le moyen (merci pierrejean) de transformer l'onglet que je veux envoyer en format HTML.
est ce possible de coller le fichier HTLM dans le mail (pas en fichier joint mais en tant qu'image )

Merci à tous pour vos réponse

Adeus33