Envoi de fichier avec OE

Le
alain Lebayle
Bonsoir,
J'ai cette procédure qui fonctionne très bien, mais je souhaite faire partir
une feuille de mon classeur qui se nomme "Stats" et non pas tout le
classeur.
Pouvez-vous m'aider ?
Je vous remercie d'avance
Alain

Sub Envoie_FichierJoint_OE()
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.FullName
Dest = "totoettata@free.fr"
Sujet = "Test d'envoi avec excel"
Msg = "Bonjour, Excel vous envoie un message"
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
End Sub

--
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #17615191
Bonsoir,
Comme ceci ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"alain Lebayle" news:48ff6541$0$23650$
Bonsoir,
J'ai cette procédure qui fonctionne très bien, mais je souhaite faire
partir une feuille de mon classeur qui se nomme "Stats" et non pas tout le
classeur.
Pouvez-vous m'aider ?
Je vous remercie d'avance
Alain

Sub Envoie_FichierJoint_OE()
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.FullName
Dest = ""
Sujet = "Test d'envoi avec excel"
Msg = "Bonjour, Excel vous envoie un message"
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
End Sub

--






alain Lebayle
Le #17615741
Bonsoir Philippe et merci
Le pb est que sendmail ne me propose pas OE mais un truc vraiment bizarre à
la place, comment faire en fait afin de ne lancer que la feuille avec OE,
afin de ne pas pertuber les utilisateurs ?
Merci
Alain

"Philippe.R"
Bonsoir,
Comme ceci ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"alain Lebayle" de news:48ff6541$0$23650$
Bonsoir,
J'ai cette procédure qui fonctionne très bien, mais je souhaite faire
partir une feuille de mon classeur qui se nomme "Stats" et non pas tout
le classeur.
Pouvez-vous m'aider ?
Je vous remercie d'avance
Alain

Sub Envoie_FichierJoint_OE()
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.FullName
Dest = ""
Sujet = "Test d'envoi avec excel"
Msg = "Bonjour, Excel vous envoie un message"
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
End Sub

--









Daniel.j
Le #17618761
Bonjour
Essaie avec cette macro
http://dj.joss.free.fr/web.htm#mail033

Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

"alain Lebayle" news: 48ff8b7f$0$23646$
Bonsoir Philippe et merci
Le pb est que sendmail ne me propose pas OE mais un truc vraiment bizarre
à la place, comment faire en fait afin de ne lancer que la feuille avec
OE, afin de ne pas pertuber les utilisateurs ?
Merci
Alain

"Philippe.R"
Bonsoir,
Comme ceci ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"alain Lebayle" de news:48ff6541$0$23650$
Bonsoir,
J'ai cette procédure qui fonctionne très bien, mais je souhaite faire
partir une feuille de mon classeur qui se nomme "Stats" et non pas tout
le classeur.
Pouvez-vous m'aider ?
Je vous remercie d'avance
Alain

Sub Envoie_FichierJoint_OE()
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.FullName
Dest = ""
Sujet = "Test d'envoi avec excel"
Msg = "Bonjour, Excel vous envoie un message"
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
End Sub

--













alain Lebayle
Le #17624951
Ok merci beaucoup
Alain

"Daniel.j"
Bonjour
Essaie avec cette macro
http://dj.joss.free.fr/web.htm#mail033

Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

"alain Lebayle" de news: 48ff8b7f$0$23646$
Bonsoir Philippe et merci
Le pb est que sendmail ne me propose pas OE mais un truc vraiment bizarre
à la place, comment faire en fait afin de ne lancer que la feuille avec
OE, afin de ne pas pertuber les utilisateurs ?
Merci
Alain

"Philippe.R" news:
Bonsoir,
Comme ceci ?
http://www.excelabo.net/excel/sortirmail.php#feuillemail
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"alain Lebayle" de news:48ff6541$0$23650$
Bonsoir,
J'ai cette procédure qui fonctionne très bien, mais je souhaite faire
partir une feuille de mon classeur qui se nomme "Stats" et non pas tout
le classeur.
Pouvez-vous m'aider ?
Je vous remercie d'avance
Alain

Sub Envoie_FichierJoint_OE()
Application.ScreenUpdating = False
Fichier = ActiveWorkbook.FullName
Dest = ""
Sujet = "Test d'envoi avec excel"
Msg = "Bonjour, Excel vous envoie un message"
Shell "C:Program FilesOutlook Expressmsimn.exe " _
& "/mailurl:mailto:" & Dest & "?subject=" & Sujet & "&Body=" & Msg & ""
SendKeys "%I" & "p" & Fichier & "~" & "%S"
Application.ScreenUpdating = True
End Sub

--

















Publicité
Poster une réponse
Anonyme