[WD-2003] Formater export Excel vers Word via signet [Résolu]

[polemos]

Bonjour,

J'ai une macro Excel qui ouvre un document Word et qui envoie des valeurs de différentes cellules aux emplacements définis par des Signets.

Je voudrais choisir ensuite la couleur du texte que j'ai placé dans mon document.

Exemple :
Si c'est un 8 en rouge et si c'est un 14 en vert.

Si je sélectionne le signet, seul l'emplacement du signet est sélectionné et pas le texte que j'ai inséré.

Comment faire s'il vous plait ? Je n'ai rien trouvé sur le sujet dans ce forum ou sur le net en général.

Merci à vous pour votre aide.

[Heureux-oli]

Salut,

Aurais-tu le code qui injecte le texte dans les signets, possible qu'il faille le faire lors de l'injection.

[polemos]

http://vb.developpez.com/faqvba/?pag...portdataSignet

On n'est jamais mieux servi que par Developpez.com !!!

[Heureux-oli]

Salut,

Si tes signets sont des points d'insertions et de ce fait ne contiennent pas de données et si ce n'est pas le cas, le signet est effacé.

Changer la couleur du texte ne sera pas possible après avoir mis le texte.

Tu dois faire un test sur le contenu avant d'insérer les données et passer par une sélection pour mettre la couleur que tu veux en fonction du texte.

[polemos]

Merci Olivier pour ta réponse. Peux-tu détailler "passer en sélection".

J'ai essayé :

Code :

1
2
3
4
5
    With WordDoc.Bookmarks("Nom_Signetl")
       .Range.Font.Color = wdColorRed
       .Range.Font.Bold = True
       .Range.Text = "8"
    End With

Mais j'obtiens le même résultat

[Heureux-oli]

Salut,

Dans ton code, tu modifies le contenu du signet qui ne contient rien.

Pour que ça fonctionne, il faut que le signet contienne au moins un caractère qui peut être un espace.

Dans ce cas, ce code fonctionne :

Code :

1
2
3
4
ActiveDocument.Bookmarks("s1").Range.Select
 
Selection.Range.Font.ColorIndex = wdBlue
Selection.TypeText "Olivier"

[polemos]

Merci pour m'avoir orienté. Faute d'y arriver avec ActiveDocument, je me suis inspiré de ta proposition et j'obtiens cela qui fonctionne bien :

Code :

1
2
3
4
5
6
7
Set myRange = WordDoc.Range(Start:=WordDoc.Bookmarks("Signet1").Start, End:=WordDoc.Bookmarks("Signet1").Start + 1)
    With myRange
        .Select
        .Font.Color = wdRed
        .Bold = True
        .Text = "blabla"
    End With

Encore merci.
Au fait Olivier : tu es beau....