Macro avec erreur

maya43 · 3 Décembre 2015

Bonjour à tous,
j'ai une macro pour envoyer un mail depuis excel.
j'ai une erreur dans le code de l'ajout de texte en html, que je n'arrive pas à trouver !
merci de votre aide.
Olivier
Sub TestMail()

Set myItem = Outlook.Application.CreateItem(olMailItem)

Num_Mois = InputBox("Entrez le nom du mois :", "Mois")

objet = "Concerne le mois " & prp & ""
myItem.Subject = "Facturation mensuelle CAV"
myItem.To = "olivier.mariano@lausanne.ch"
myItem.Display

' on ajoute texte dans le message au format HTML
myItem.HTMLBody = "Bonjour, Vous trouverez ci-dessous les données pour le déversement " &
"Mois concerné: " & Num_Mois_ & myitem.HTMLBod

End Sub

Roland_M · 3 Décembre 2015

Re : Macro avec erreur

bonjour,

comme ça, à vue de nez, tu as oublié de mettre au bout le tiret underscore
sinon voir en une ligne !?
myitem.HTMLBody = "Bonjour, Vous trouverez ci-dessous les données pour le déversement " & "Mois concerné: " & Num_Mois & myitem.HTMLBod

EDIT: mais il me semble que ton code n'est pas très clair !?
un petit rappel tout simple qui pourrait t'aider, voir ceci un petit pense bête

'saut de lig 
'début <HTML>
'entête <HEAD>
' <TITLE> Titre du document </TITLE>
' </HEAD>
'déb msg <BODY>
'<H1> Titre dans le texte </H1>
' Corps du document
'fin msg </BODY>
'fin html </HTML>

'--- coller un lien à cliquer
'debut : "<A HREF='"
'le lien : "http://...'"
'Aff Msg : ">ici msg qui sera afficher pour cliquer<"
'fin lien: "/A>" <fin qui permet le clic sur le lien

'--- coller un lien à cliquer
'"<A href=mailto:adresperso@fre.fr>Ici mon adresse mail</A>"
'"<A href=mailto:adresperso@fre.fr>adresperso@fre.fr</A>"
'"<A href='http://www.developpez.com'>Cliquez ici.</A>"
'"<A HREF=http://www.excel-downloads.com/forum/217613-creer-macro-pour-copier-un-tableau-dans-le-corp-dun-mail.html#post1372383" & _
' ">voir ici sur le site</A>"

'--- coller un lien pour afficher une image mise un site hébergeur ex 403 Forbidden (mon image 663849DSC3603)
'"<A HREF=http://www.hostingpics.net/viewer.php?id=" & _
"mon image.jpg" & "><img src=" & _
"http://img15.hostingpics.net/thumbs/mini_mon image.jpg" & _
" alt=Upload images/></a"

'--- coller une image du disque (mais ce n'est guère utile car doit rester sur le disque)
'"<img src=" & PathImage$ & ">"

EDIT2: si tu es intéressé ci-joint deux fichiers intéressants

maya43 · 3 Décembre 2015

Re : Macro avec erreur

Bonjour Roland,

merci beaucoup pour ta réponse et pour ton pense bête.

je te souhaite un belle après midi.

Olivier

Effectuez une recherche sur Excel Downloads...

Macro avec erreur

maya43

XLDnaute Nouveau

Roland_M

XLDnaute Barbatruc

Pièces jointes

maya43

XLDnaute Nouveau

Discussions similaires

Nous accordons de l'importance à votre vie privée