Mettre en gras un champ en HTML (vba Excel)

[anthooooony]

Bonjour à tous,

J'ai un problème pour mettre un champ en caractère bleu & gras! dans l'envoi de mail.

c'est "Objet" & "Catalogue". J'arrive sur les autres champs mais pas sur ceux la.

C'est du HTML c'est assez spécifique.

Si quelqu'un a une idée ce serait parfait

Un grand merci d'avance cher exceldownloadien!

Sub BoucleDestinataires()
Dim i As Long
i = 2
While ThisWorkbook.Sheets("Achat").Cells(i, 1) <> vbNullString
    Call Macro2(ThisWorkbook.Sheets("Achat").Cells(i, 1), ThisWorkbook.Sheets("Achat").Cells(i, 2), ThisWorkbook.Sheets("Achat").Cells(i, 3), ThisWorkbook.Sheets("Achat").Cells(i, 4), ThisWorkbook.Sheets("Achat").Cells(i, 5), ThisWorkbook.Sheets("Achat").Cells(i, 6), ThisWorkbook.Sheets("Achat").Cells(i, 7), ThisWorkbook.Sheets("Achat").Cells(i, 8), ThisWorkbook.Sheets("Achat").Cells(i, 9), ThisWorkbook.Sheets("Achat").Cells(i, 10), ThisWorkbook.Sheets("Achat").Cells(i, 11), ThisWorkbook.Sheets("Achat").Cells(i, 12), ThisWorkbook.Sheets("Achat").Cells(i, 13), ThisWorkbook.Sheets("Achat").Cells(i, 14))
    i = i + 1
Wend
End Sub

Sub Macro2(Destinataire As String, CC As String, Message As String, Objet As String, Catalogue As String, Mdessage As String, Chemin3 As String, Chemin4 As String, Chemin5 As String, Chemin6 As String, Chemin7 As String, Chemin8 As String, Chemin9 As String, Chemin10 As String)
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = Destinataire
   
        .CC = CC
        .BCC = BCC
          
         .Subject = "Intégration du catalogue Ciel : " & Objet
  .HTMLBody = "<font face='Calibri'>Bonjour à tous,<br><br>Dans le cadre de la maintenance continue des catalogues de notre outil de commande en ligne CIEL, nous vous signalons que :<br><br>" & _
        "Le catalogue " & Objet & _
    " concernant la catégorie " & Catalogue & _
     " a été mis à jour." & _
    "<br><br> " & Message & "<br><br> Cordialement, <br><br>Direction &" _

       
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[anthooooony]

Re : Mettre en gras un champ en HTML (vba Excel)

Trouvé, et approuvé !

"Le catalogue " & "<B><font color='blue'>" & Objet & "</font></B>" & _
" concernant la catégorie " & " <B><font color='blue'>" & Catalogue & "</font></B>" & _

 

[ChTi160]

Re : Mettre en gras un champ en HTML (vba Excel)

Bonjour anthooooony
Bonjour le fil
Bonjour le forum

juste pour participer lol
on peut imaginer simplifier la procédure ainsi.

Sub BoucleDestinataires()
Dim i As Long
      i = 2
      With ThisWorkbook.Sheets("Achat")
            While .Cells(i, 1) <> vbNullString
                  Call Macro2(.Cells(i, 1), .Cells(i, 2), .Cells(i, 3), _
                              .Cells(i, 4), .Cells(i, 5), .Cells(i, 6), _
                              .Cells(i, 7), .Cells(i, 8), .Cells(i, 9), _
                              .Cells(i, 10), .Cells(i, 11), .Cells(i, 12), _
                              .Cells(i, 13), .Cells(i, 14))
                  i = i + 1
            Wend
      End With
End Sub

Bonne fin de journée
Amicalement
Jean marie

 

[ChTi160]

Re : Mettre en gras un champ en HTML (vba Excel)

Re
je n'ai pas tout compris par exemple a quoi servent les Chemins(3 à 10 ) ou Mdessage dans les arguments de la Macro2(je ne suis pas un expert en envoie de mail via excel !!!!!! Lol

j'ai pensé simplifier ainsi.

[highlight=Vba]Sub BoucleDestinataires()

Dim L As Long
Dim Tablo As Variant
Dim DerLgn As Integer
i = 2
With ThisWorkbook.Sheets("Achat")
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row 'on détermine la derniere ligne non vide de la colonne 1(A)
Tablo = .Range(.Cells(2, 1), .Cells(DerLgn, 14)).Value 'on remplie le tablo temporaire avec le séléments de la plage ainsi définie

For L = 1 To UBound(Tablo, 1) 'pour chaque ligne du tableau temporaire
If Tablo(L, 1) <> vbNullString Then 'si premire colonne non vide

Macro2 Tablo 'on passe le tableau en argument de la fonction

End If
Next L
End With
End Sub[/code]

[highlight=Vba]'Sub Macro2(Destinataire As String, CC As String, Message As String, Objet As String, Catalogue As String, Mdessage As String, Chemin3 As String, Chemin4 As String, Chemin5 As String, Chemin6 As String, Chemin7 As String, Chemin8 As String, Chemin9 As String, Chemin10 As String)
Sub Macro2(ByVal Tablo As Variant)

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = Tablo(1, 1) 'destinataire

.CC = Tablo(1, 2) 'CC
.BCC = BCC '???????

.Subject = "Intégration du catalogue Ciel : " & Tablo(1, 4) 'Objet
.HTMLBody = "<font face='Calibri'>Bonjour à tous,<br><br>Dans le cadre de la maintenance continue des catalogues de notre outil de commande en ligne CIEL, nous vous signalons que :<br><br>" & _
"Le catalogue " & Tablo(1, 4) & _
" concernant la catégorie " & Tablo(1, 5) & _
" a été mis à jour." & _
"<br><br> " & Tablo(1, 3) & "<br><br> Cordialement, <br><br>Direction &" _


.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub[/code]

Bonne fin de journée
Amicalement
Jean Marie