Discussion :

[le_sonic]

Bonjour,

Je voudrais savoir comment importer la mise en page d'une cellule excel vers Word. J'arrive trés bien a importé le contenu de la cellule, mais pas la couleur.

J'ai dans une cellule d'un fichier Excel un texte avec des passages en police ROUGE, mais lorsque que je l'importe la couleur disparait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Set exl = CreateObject("excel.application")
exl.workbooks.Open FileName:="\\serverX\Fichier.xls"
tablo = exl.ActiveWorkbook.Name
 
 
ActiveDocument.Bookmarks("MonTexteWord").Range.InsertBefore   exl.workbooks(tablo).sheets("Feuil1").Cells(x + 1, 3).value

Thank

[Invité]

Salut

Je pense que c'est dans ton document Word qu'il faut tu mettes la police en rouge. Donc les propriétés de "MonTextWord".

Starec

[le_sonic]

Je pense que c'est dans ton document Word qu'il faut tu mettes la police en rouge. Donc les propriétés de "MonTextWord".

Oui mais il n'y a pas TOUT le texte en rouge (que quelques mots)...

[Invité]

Re

je n'ai jamais testé, mais cela signifie que word prenne le texte sans formatage.

La solution serait de séparer ton texte dans différentes cellules, le texte en noir et le texte en rouge.
Puis sous Word de mettre ton texte dans plusieurs champs les uns à la suite des autres, et de mettre la propriété de couleur de police dans le champ concerné.

J'espère que cela pourra t'aiguiller

Starec

[le_sonic]

Mouai, franchement, ca ressemeble a du bricolage.
Bon ben je vais essayé de chercher...

[Invité]

Re

c'est peut-être du bricolage, mais je travaillais avant dans l'envoi de mailings avec personnalisation, c'est ce principe que l'on utilisait ( avec un logiciel spécifique ).

Je ne vois que cette solution

Starec

[SilkyRoad]

bonjour

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Exl.workbooks(tablo).sheets("Feuil1").Cells(x + 1, 3).Copy
ActiveDocument.Bookmarks("MonTexteWord").Range.PasteSpecial _ 
    DataType:=wdPasteHTML

michel