Bonjour à tous,

Je pilote un document Word depuis Excel en VBA. Je souhaite écrire un texte avec la mise en forme (gras + Italique) à l'emplacement d'un signet Word mais je n'arrive qu'à écrire un texte brut.
J'ai tenté de passer par le presse-papier mais ça plante.
Voici mon petit bout de code :

Dim MonText As String
MonText = "Top le forum de CCM"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("C:\Test.doc)
'----------- Ce qui fontionne ----- :-) ---------

wordDoc.Bookmarks("ICI").Range.Text = MonText

'----------- Ce qui ne fonctionne pas :-( ------

With wordDoc.Bookmarks("ICI")
.Range.Font.Size = 20
.Range.Bold = wdToggle
.Range.Italic = wdToggle
.Range.Text = MonText
End With

Cela fait 2 jours que je me casse la tête à surfer sur les forums ce qui est instructif mais malheureusement sans résultat.
Un p'tit coup de pouce ?
Merci

Configuration: Windows XP
Internet Explorer 6.0
Office 2003