Problème de police dans un mail généré à partir d'Excel

Bonjour à tous,

Je cherche depuis quelques temps une solution à mon problème de taille de police dans le corps d'un mail avec signature généré à partir d'un fichier Excel. Je m'explique...

Je génère un mail à partir d'Excel avec le code ci-dessous :

Sub CreerMail()

    'Déclarationdes variables
    Dim oOutlook As Object
    Dim oMail As Object

    'On affecte les variables de type objet - initialisation des variables objets - SET
    Set oOutlook = CreateObject("Outlook.Application")
    Set oMail = oOutlook.CreateItem(0)

    'On construit le message
    With oMail
        .Display 'On affiche le message, nécessaire pour récupérer la signature
        .to = "***@***" 'L'adresse du destinataire
        .Subject = "Sujet du mail"          'On affiche l'objet du mail
        'On affiche le corps du mail -> NOT OK
        .HTMLBody = "Bonjour,<br>" & _
                    "Je suis le corps du message.<br>" & _
                    .HTMLBody
        .Display                            'On affiche le message
    End With

End Sub

Ma police par défaut sous Outlook est Calibri taille 11.

Le mail est bien généré, mais mon texte apparait en Calibri taille 10.

Si je supprime l'insertion de ma signature ou que j'insère un texte simple, c'est à dire sans balise HTML, la police de mon message est bien Calibri taille 11.

Quelqu'un aurait-il une solution pour que mon message apparaisse en Calibri taille 11 même avec l'insertion de ma signature ?

Pitbul0169@

Bonjour Pitbul0169

Ne chercher plus, si mes souvenirs sont bon, c'est un problème connu pour la taille 11.

Après vous devez pouvoir corriger en insérant une plage de cellules avec la taille indiquée

Vous avez des post qui traitent du sujet nomalement

Bonjour,

Merci BrunoM45 pour votre réponse.
J'ai bien trouvé des post traitant exactement du même problème, mais pas vraiment de solution.

Re,

A ma connaissance, il n'y en a pas, c'est un "bug" Microsoft... mais

A+

Ok merci pour le retour.