Changer police de caractère via VBA

Bonjour à tous,

Comment faire pour que dans le mail qui est automatisé via la macro (bouton), faire que la cellule C21 (onglet Mail), apparaisse non pas en police de caractère "calibri" mais "wingdings" ??

Merci

Pièce jointe 150530

Déjà, ça :

Code:

---

1 2 3 4 5

With ActiveCell Cells(3, 21).Select Cells(3, 21).Font.Name = "Wingdings"   End With

---

Peut être résumé en :

Code:

---

Cells(3, 21).Font.Name = "Wingdings"

---

Le reste ne servant à rien.

Mais cette tentative ne résoudra pas ton problème puisque le message que tu envois est en pure texte et ne prend dans les cellules que leur valeur et pas du tout leur format.
Tu peux donc supprimer totalement cette partie (et en profiter pour aller regarder dans l'aide VBA Excel l'utilisation de l'instruction With).

Je ne connais pas les objets Outlook. Je ne peux donc pas te dire s'il est possible d'introduire la notion de format dans une partie du corps de texte.
Si c'est le cas, ce sera forcément dans l'objet Body.