Discussion :

[le_sonic]

Bonjour j'ai un gros souci ... je vous explique: J'ai crée sous Word un userform qui va chercher des titres d'articles dans une base Excel ... et ensuite quand l'utilisateur appui sur OK ... les titres , ainsi que les articles appropriés sont automatiquement mis a leur place dans ce fichier word (grace a des signets)

Mon probleme est: Dans les articles sur le fichier excel , il y a des polices differentes (couleur rouge ou noir , mise en italique... ) et quand il arrive sur le fichie word , ils sont tous en noir a la meme police

SVP , j'ai besoin d'aide sinon mon projet tombe a l'eau ... meme des indices pourraient m'aider

Voila mon code pour inserer la valeur de la cellule dans le signet word

Set exl = CreateObject("excel.application")
exl.workbooks.Open FileName:= chemin\fichierexcel.xls"
tablo = exl.ActiveWorkbook.Name

ActiveDocument.Bookmarks("signet3").Range.InsertBefore exl.workbooks(tablo).sheets(texte1).Cells(x + 1, 3).Value

Sinon connaissez vous un autre moyen (surement plus efficace?)

[le_sonic]

Personne pour na de solution ?