Classeur en cours et mail

bonjour Didier,

j'ai fait une modification,
il faut que le classeur à envoyer soit le classeur actif et qu'il soit
enregistrer.

Sub Envoie_FichierJoint_OE()
Fichier = ActiveWorkbook.FullName
Dest = "ggtvincent@videotron.ca"
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"
End Sub

isabelle

Bonsoir Isabelle,
J'essaie de modifier ta procédure pour envoyer une copie du classeur en
cour, mais cela plante
Une idée ?
Merci
Didier

Sub Envoie_FichierJoint()
ThisWorkbook.Save
La_date = Format(Now, "dd-mmm-yy")
Lheure = Format(Time, "hh.mm")
Nomfeuil2 = "CLD du " & La_date & " envoyé à " & Lheure & ".xls"
ActiveWorkbook.SaveAs Filename:="CLD du " & La_date & " envoyé à " &
Lheure & ".xls"
Fichier = Nomfeuil2
Dest = "ggtvincent@videotron.ca"
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"
ActiveWorkbook.Close SaveChanges:úlse
End Sub




"isabelle" <i@v> a écrit dans le message de news:
%23Xx%23ZOoiIHA.4844@TK2MSFTNGP06.phx.gbl...

bonjour Didier,

voilà,

Sub Envoie_FichierJoint_OE()
Fichier = "c:zazazz3.xls"
Dest = "ggtvincent@videotron.ca"
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"
End Sub

isabelle

Outlook Express
Didier

"isabelle" <i@v> a écrit dans le message de news:
OzE%23tGhiIHA.5960@TK2MSFTNGP02.phx.gbl...

qu'est ce que utilise par défaut, outlook express ou outlook ?

isabelle

Bonsoir Isabelle
Parfait !
Je te remercie beaucoup
Une petite dernière, comment écrire une phrase dans le corps du
message ?

Didier


"isabelle" <i@v> a écrit dans le message de news:
eHUOENgiIHA.5208@TK2MSFTNGP04.phx.gbl...

bonjour Didier,

regarde au menu, Fichier, Envoyer vers, Destinataire du message(en
tant que piece jointe)...

isabelle

Bonsoir,
Est-il possible d'envoyer par mail le classeur actif sur lequel on
travaille ?
Je vous remercie
Didier