Bonjour à tous,

Je souhaiterais envoyer automatiquement un mail via Outlook et qui serait généré par vba Excel. L'objet de ma demande est de savoir comment je peux mettre en gras certains mots qui sont dans l'objet du mail.
Sur un exemple simple:

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
34
35
36
37
38
39
Sub Send_MsgHNY()
 
 
Set objOL = CreateObject("Outlook.Application")
 
Set objMail = objOL.CreateItem(olMailItem)
 
file_export = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
 
 
 
With objMail
 
    .to = Cells(8, 6)
 
    .CC = Cells(9, 6)
 
    .Subject = Cells(7, 6) & " Happy New Year "
 
    .Body = "Bonne" & _
    Chr(13) & "Année" & _
    Chr(13) & "2013"
 
    .Attachments.Add file_export
 
    .Display
 
End With
 
 
 
 
ActiveWorkbook.Close
 
 
 
Set objMail = Nothing
 
Set objOL = Nothing

J'aimerais mettre en gras uniquement le mot "Année".

Merci d'avance pour votre aide et bonne année 2013