Mettre en gras une partie du texte dans un code VBA -

**Accessifiante** · 16/11/2013, 20h13

Bonjour tout le monde,

J'ai un peu honte... J'ai fait des recherches sur le forum et j'ai trouvé des questions similaires à la mienne mais comme je n'ai pas une compréhension parfaite, ni même avancée, du code VBA je n'arrive pas à adapter les solutions proposées à mon cas.

Voilà : j'envoie un mail directement depuis Excel, avec le corps du message inscrit dans le code VBA (que j'ai recopié d'un site internet et qui fonctionne très bien). Le hic, c'est que je dois mettre en gras certains groupes de mots placés entre " ". J'ai essayé les balises (?) <B> de chaque côté de mon groupe de mots mais lesdites balises apparaissent dans le mail et rien n'est en gras... Ça fait pas très beau comme résultat !

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub SendEMailHypo()
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Email = Cells(ActiveCell.Row, 25)
 
    Subj = "Votre Lorem ipsum"
 
    Msg = ""
    Msg = Msg & "Bonjour " & Cells(ActiveCell.Row, 4) & "," & vbCrLf & vbCrLf _
    & "Déjà 5 ans et voilà que Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. " _
    & vbCrLf & vbCrLf _
    & "Vous désirez obtenir Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat." _
    & vbCrLf & vbCrLf _
    & "Dans l'attente blablablabla" _
    & vbCrLf & vbCrLf _
 
    'Replace spaces with %20 (hex)
    Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
    Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
 
    'Replace carriage returns with %0D%0A (hex)
    Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
 
    'Create the URL
    URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
 
    'Execute the URL (start the email client)
    ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
 
    'Wait two seconds before sending keystrokes
    'Application.Wait (Now + TimeValue("0:00:02"))
    'Application.SendKeys "%s"
End Sub

Je voudrais mettre en gras, par exemple, "sed diam nonummy nibh euismod tincidunt" dans le premier paragraphe, et "Ut wisi enim ad minim veniam" dans le deuxième.

Que dois-je faire ? Est-ce qu'il faut couper les phrases là où on veut formater en gras et les reprendre ensuite avec des & et je ne sais quel autre signe magique ou mystérieuse "balise" ?

J'ai vu aussi qu'il y a une question de format HTML... Mais encore là je nage : dans mon code, je ne vois rien qui indique ce format ou un autre ?

Merci à l'avance de votre aide.

**nibledispo** · 16/11/2013, 20h36

Bonsoir,

Et si tu écrivais ton message sous word avec la mise en forme souhaitée pour :

- Soit le copier dans le corps de ton VBA comme actuellement (ce qui n'est pas très heureux selon moi)
- Soit le mettre en pièce jointe

cordialement,

**Accessifiante** · 17/11/2013, 13h40

Bonjour Nibledispo,

Merci tout d'abord de m'avoir consacré un peu de votre temps.

Malheureusement, les deux solutions que vous proposez ne sont pas satisfaisantes : la première ne fonctionne pas et la seconde n'est pas envisageable.
Je sais pour avoir parcouru le forum que ce que je demande est possible, mais je ne sais tout simplement pas adapter les pistes que j'ai trouvées à mon cas...

**Accessifiante** · 17/11/2013, 18h49

Re-bonjour à tous,

J'ai fini par trouver un autre code qui me permet d'utiliser les balises pour mettre mon texte en gras. Yé !

Cependant, au lieu d'utiliser le Times New Roman 11 qui est la police par défaut de mes messages Outlook, il utilise Calibri 10... ??? Je ne vois pourtant nulle part dans ce code une déclaration de Font... ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub EnvoiMail()
' Working in Office 2000-2013
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour," & _
              "<br><br>Blalalala ldjf slfjslfj slfjs;alfjs;aldsa;ldasldfjas;d.<br>" & _
              "<br>Blablalbalblablalala <b>en gras en gras en gras</b> blablalbalblalalalalala." & _
              "<br><br>blablablablablabla" & _
              "<br><br><b>PS. Blalalalalalalalalalalala</b>."
 
 
    On Error Resume Next
 
    With OutMail
        .Display
        .To = Cells(ActiveCell.Row, 25)
        '.CC = ""
        '.BCC = ""
        .Subject = "Test mail"
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Display
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Auriez-vous une solution ? Merci à l'avance !

**PMO2017** · 17/11/2013, 19h36

Bonjour,

Quelque chose comme ce qui suit (à tester)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  strbody = "<FONT face=" & chr(34) & "Times New Roman" & chr(34) & "size=" & chr(34) & "3" & chr(34) & ">" & _
              "Bonjour," & _
              "<br><br>Blalalala ldjf slfjslfj slfjs;alfjs;aldsa;ldasldfjas;d.<br>" & _
              "<br>Blablalbalblablalala <b>en gras en gras en gras</b> blablalbalblalalalalala." & _
              "<br><br>blablablablablabla" & _
              "<br><br><b>PS. Blalalalalalalalalalalala</b>." & _
              "</FONT>"

**Accessifiante** · 17/11/2013, 23h46

Bonsoir PMO2017,

Hélas !

Avant de coller votre code, mon "Bonjour" est en Times New Roman, mais c'est le reste qui est en Calibri 10... Avec votre code, c'est tout le message qui est formaté en Calibri 10...

Je suis allée vérifier les options d'Outlook, et j'ai bien du TNR 11 par défaut pour les trois options : composition, transfert, réponse... Même dans la rédaction en texte brut.

C'est étrange n'est-ce pas ?

**Jean-Philippe André** · 18/11/2013, 16h18

Salut,

et la super routine SendRangeByMail avec la mise en forme toute prise en compte ?
http://outlook.developpez.com/faq/?p...VBA_Send_Range

**Accessifiante** · 19/11/2013, 01h06

Bonjour JPCheck,

Je n'envoie pas une plage de cellules. J'ai un tableau avec des clients et leur adresse mail dans une colonne. Selon certains critères, l'utilisateur doit envoyer un courriel aux clients sélectionnés, mais le texte est déjà inscrit dans le code et je n'ai pas besoin de plages de cellules.

En plus, j'aime bien mon code car il inclut la signature, contrairement à certains autres.

Je voudrais juste que le message Outlook garde ma police de caractère par défaut au lieu d'utiliser du Calibri 10.

C'est un vrai mystère...

**Accessifiante** · 21/11/2013, 03h34

À force de chercher, fouiller, tester aveuglément sans trop savoir ce que je fais... j'ai fini par me dépêtrer comme une grande !

J'ai changé une partie de mon code (.HTMLBody) pour ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .HTMLBody = "<font face=""Calibri"" size=""3"">" & strbody & "<br>" & .HTMLBody

Et ça me donne un message Outlook en Calibri taille 13,5.

Je vais cependant poster une autre discussion car je voudrais avoir l'équivalence des tailles entre VBA et Outlook : pourquoi 3 (VBA) = 13,5 (Outlook) et 2 (VBA) = 10 (Outlook) ???

**PMO2017** · 21/11/2013, 08h17

Je vais cependant poster une autre discussion car je voudrais avoir l'équivalence des tailles entre VBA et Outlook : pourquoi 3 (VBA) = 13,5 (Outlook) et 2 (VBA) = 10 (Outlook) ???

Bonjour,

Peut être un éclaircissement avec

Taille

Pour faire varier la taille d'un texte, il faut utiliser l'attribut size de l'élément FONT. La valeur de cet attribut est un chiffre compris entre 1 et 7 pour avoir un texte allant d'une petite taille (1) vers une grande taille (7). Le tableau suivant reprend la conversion en terme de points, mieux connu pour certain.

Taille 1 2 3 4 5 6 7
Points 8 10 12 14 18 24 36
Conversion de la taille du texte en points.

**Accessifiante** · 21/11/2013, 19h43

Haaaaaaa... c'était donc ça !

Bonjour PM, merci pour la précision. Cependant, ça doit dépendre des polices car chez moi, un Calibri taille 3 en VBA me donne un Calibri taille 13.5 en Outlook... C'est à la tête du client !

Petite question : elle vient d'où la citation ? Est-ce qu'il y a une autre discussion traitant du sujet ??

Merci !

**PMO2017** · 21/11/2013, 20h35

Petite question : elle vient d'où la citation ? Est-ce qu'il y a une autre discussion traitant du sujet ??

http://www.ukonline.be/programmation...tre2/page4.php

Mettre en gras une partie du texte dans un code VBA - [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager