Envoi feuille active par mail

[Gringo]

Bonjour

Je recherche comment expedier la feuille active d'un classeur

Excel par mail (sous Outloock).

J'ai réussi à expedier tout le Classeur mais cela ne me convient pas.
Si possible pour plusieurs destinataires ou un seul si impossible pour plusieurs.

Merci d'avance.
RPG.

 

[floune]

Bonsoir Gringo

voici une solution

ThisWorkbook.Sheets("taPage").Copy
ActiveWorkbook.SendMail ("toto@free.fr")

la première ligne recopie la page en question dans un nouveau classeur
la seconde place le nouveau classeur dans un mail

je ne sais pas si cela te conviendra

bonne soirée

 

[Gringo]

Merci d'avance je vais essayer.

Je vous tiendrais au courant du résultat.

RPG

 

[Gringo]

Bonjour à tous.

La solution de floune fonctionne trés bien par contre je voudrais modifier et pourvoir expédier la mail à plusieurs destinataires.

j'ai essayé en en mettant plusieurs destinataires séparés par un point virgule mais cela ne fonctionne pas.


Merci d'avance.

 

[myDearFriend]

Bonsoir Gringo, floune.

Sur la base de la réponse de floune, tu peux essayer quelque chose comme ça :

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "Destinataire1@domaine.fr"
Destinataires(2) = "Destinataire2@domaine.fr"
Destinataires(3) = "Destinataire3@domaine.fr"
Sujet = "Objet éventuel de l'envoi"
AccuseReception = True
ThisWorkbook.Sheets("taPage").Copy
ActiveWorkbook.SendMail T, Sujet, AccuseReception
ActiveWorkbook.close false
End Sub

La liste des destinataires doit être insérée sous forme d'un tableau.


Cordialement.

Didier_mDF

 

[myDearFriend]

Oups,

Toutes mes excuses, je me suis planté en modifiant le code à la dernière seconde avant envoi...

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
Destinataires(1) = "Destinataire1@domaine.fr"
Destinataires(2) = "Destinataire2@domaine.fr"
Destinataires(3) = "Destinataire3@domaine.fr"
Sujet = "Objet éventuel de l'envoi"
AccuseReception = True
ThisWorkbook.Sheets("taPage").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.close false
End Sub

Merci à mon ami Chti160 de m'avoir averti du problème.


Cordialement.

Didier_mDF

 

[Gringo]

Merci à mDF.

Je vais essayer mais d'avance Merci.

RPG.

 

[Gringo]

Salut à mDF.

La modif est Tip-Top .
Merci encore.
A+ RPG