stich02
XLDnaute Occasionnel
Bonjour à toutes et à tous ,
J'ai récupérer sur internet la macro ci-dessous qui me permet d'envoyer un mail dans Excel avec une pièce jointe (grand merci à son créateur).
Etant ignorant des subtilités du VBA pour Excel , je ne sais pas comment faire pour envoyer une plage de cellules (en l'occurrence A7:G34) au lieu de simplement la cellule A7 comme dans la macro.
Remplacer "A7" par "A7:G34" me renvoie le message : "erreur exécution 13". Ca aurait été trop beau...
J'ai parcouru le net mais sans trouver jusqu'alors mon bonheur.
Alors si quelqu'un pouvait me venir en aide ...
Merci d'avance
Sub essai()
Dim Subj As String
Dim EmailAddr As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
'-------------------------------------------------définir les données
Subj = Range("b4")
EmailAddr = Range("b1")
Fichier = "k:\Jean-Marie\pdf\caf.pdf"
'--------------------------------------------------Composer le message
Msg = Msg & Range("a7") '--------------------------------------------------Construire lien hypertexte
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
'--------------------------------------------------Transmettre le message
ActiveWorkbook.FollowHyperlink HLink
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%i", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "p", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys Fichier, True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "{enter}", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%s", True
End Sub
J'ai récupérer sur internet la macro ci-dessous qui me permet d'envoyer un mail dans Excel avec une pièce jointe (grand merci à son créateur).
Etant ignorant des subtilités du VBA pour Excel , je ne sais pas comment faire pour envoyer une plage de cellules (en l'occurrence A7:G34) au lieu de simplement la cellule A7 comme dans la macro.
Remplacer "A7" par "A7:G34" me renvoie le message : "erreur exécution 13". Ca aurait été trop beau...
J'ai parcouru le net mais sans trouver jusqu'alors mon bonheur.
Alors si quelqu'un pouvait me venir en aide ...
Merci d'avance
Sub essai()
Dim Subj As String
Dim EmailAddr As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
'-------------------------------------------------définir les données
Subj = Range("b4")
EmailAddr = Range("b1")
Fichier = "k:\Jean-Marie\pdf\caf.pdf"
'--------------------------------------------------Composer le message
Msg = Msg & Range("a7") '--------------------------------------------------Construire lien hypertexte
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
'--------------------------------------------------Transmettre le message
ActiveWorkbook.FollowHyperlink HLink
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%i", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "p", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys Fichier, True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "{enter}", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%s", True
End Sub