Bonjour à tous ou Bonsoir suivant l'heure,

Je commande via un USF Excel la rédaction dans un document Word.
Dans ce dernier, j'ai créé manuellement des onglets (ADD1, ADD2, Et c...)

Je parviens bien à écrire, mais l'ordre relatif à la police n'est pas appliqué.

Voici la partie du code vba concernée.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
With DOCUMENT_TYPE
SON_NOM = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
.Bookmarks("ADD" & 1).Range.Text = "Madame et Monsieur " & SON_NOM
.Bookmarks("ADD" & 1).Range.Bold = True
.Bookmarks("ADD" & 1).Range.Font.Size = 8
.Bookmarks("ADD" & 2).Range.Text = "Ligne 1 d'adrese  de " & SON_NOM
' Et c....
End With
D'autant que dans le doc Word, je n'ai pas trouvé la possibilité de prédéfinir la police des onglets.
Sauf de le faire sur toute la ligne, mais cela ne convient pas trop aux besoins.

Merci par avance de bien vouloir m'aiguiller, car je ne comprends pas