envoi mail auto avec une variable dans le HTML

Y compris Power BI, Power Query et toute autre question en lien avec Excel
R
Ragus1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 4 octobre 2016
Version d'Excel : 2007

Message par Ragus1970 » 26 novembre 2018, 16:18

Bonjour,

Je veut préparer mes mails via VBA, cela fonctionne sauf un truc lorsque j'insère une image, pour le corps du texte, je passe en HTML :
"<br/><br/><img src=""[b]C:\Users\jm.aix\Documents\Annuaire\Logo.png[/b]"">"
Cela fonctionne, sauf que ce programme doit être à des endroit différents, donc je remplace le chemin par une variable et là ça ne fonctionne pas, j'ai fais cela :
Dim varChemin, aqw As String
varChemin = ThisWorkbook.Path
aqw = varChemin & "\LogoParitel.png"
MsgBox aqw

"<br/><br/><img src=[b]aqw[/b]>"
Comment faire ?
R
Ragus1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 4 octobre 2016
Version d'Excel : 2007

Message par Ragus1970 » 26 novembre 2018, 16:20

Bonjour,

Je replace ma demande sans les :


Je veut préparer mes mails via VBA, cela fonctionne sauf un truc lorsque j'insère une image, pour le corps du texte, je passe en HTML :
CODE : TOUT SÉLECTIONNER

"<br/><br/><img src=""C:\Users\jm.aix\Documents\Annuaire\Logo.png"">"
Cela fonctionne, sauf que ce programme doit être à des endroit différents, donc je remplace le chemin par une variable et là ça ne fonctionne pas, j'ai fais cela :
CODE : TOUT SÉLECTIONNER

Dim varChemin, aqw As String
varChemin = ThisWorkbook.Path
aqw = varChemin & "\LogoParitel.png"
MsgBox aqw

"<br/><br/><img src=aqw>"
Comment faire ?
R
Ragus1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 4 octobre 2016
Version d'Excel : 2007

Message par Ragus1970 » 26 novembre 2018, 16:26

Je vais y arriver, ma demande au propre :

Je veut préparer mes mails via VBA, cela fonctionne sauf un truc lorsque j'insère une image, pour le corps du texte, je passe en HTML :

"<br/><br/><img src=""C:\Users\jm.aix\Documents\Annuaire\Logo.png"">"
Cela fonctionne, sauf que ce programme doit être à des endroit différents, donc je remplace le chemin par une variable et là ça ne fonctionne pas, j'ai fais cela :

Dim varChemin, aqw As String
varChemin = ThisWorkbook.Path
aqw = varChemin & "\LogoParitel.png"
MsgBox aqw

"<br/><br/><img src=aqw>"
Comment faire ?
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'989
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 26 novembre 2018, 17:21

bonsoir,

essaie ceci
Sub aargh()

    Dim varChemin, aqw As String
    varChemin = ThisWorkbook.Path
    aqw = varChemin & "\LogoParitel.png"
    MsgBox aqw

    msghtml = "<br/><br/><img src=""" & aqw & """>"
    MsgBox msghtml
End Sub
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'579
Appréciations reçues : 756
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 27 novembre 2018, 01:46

Bonjour à tous , Bjr H2so4

Réponse exacte ... mais parfois coince quand même ! tout dépend de comment cette variable est ensuite utilisée dans le code html.

Sans passer aux antislashes ou &quot; ou encore &#34; une solution fiable est de remplacer les guillemets par une apostrophe, et dans ce cas il n'est pas non plus nécessaire de doubler :
msghtml = "<br/><br/><img src='" & aqw & "'>"

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
R
Ragus1970
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 4 octobre 2016
Version d'Excel : 2007

Message par Ragus1970 » 27 novembre 2018, 08:02

Bonjour,

Grand merci à vous deux, cela fonctionne bien.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message