Discussion :

[c.piette]

Bonjour à tous,


Ce que j'essaie de faire est ultra simple. Mais pas moyen ça bug !

En gros j'ai ma page de garde, ou plutôt une jolie première page bien mise en forme. L'idée c'est que j'édite cette page de garde automatiquement depuis une macro lancée depuis Excel.

Donc sur cette page, j'ai inséré un signet, contenant le mot "Nom de l'agent" (même si ça, ça n'a pas d'importance) et appelé PDGNomDeLAgent (pour Page De Garde Nom De L'Agent).

Une fois que j'ai remplacé le texte du signet par le nom réel de l'agent, j'aimerai ajouter une bordure inférieur. Vous savez, la belle qui travers horizontalement la feuille de part en part... Une bordure quoi : D

Le hick c'est que le nom de mon agent se retrouve entouré de toutes les bordures, donc comme mis dans un carré ... J'ai essayé plusieurs code mais rien n'y
fait.

Je crie donc à l'aide. Voici les code que j'ai testé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    If WordDoc.Bookmarks.Exists("PDGNomDeLAgent") Then
 
        WordDoc.Bookmarks("PDGNomDeLAgent").Range.Select
            With WordApp.Selection.Range
 
                .Text = Prenom & " " & Nom
                With .Borders(wdBorderBottom)
                    .LineStyle = Options.DefaultBorderLineStyle
                    .LineWidth = Options.DefaultBorderLineWidth
                    .Color = Options.DefaultBorderColor
                End With
 
            With .Paragraphs
                .Alignment = wdAlignParagraphCenter
            End With
        End With
    End If

Et aussi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    If WordDoc.Bookmarks.Exists("PDGNomDeLAgent") Then
 
        WordDoc.Bookmarks("PDGNomDeLAgent").Range.Select
            With WordApp.Selection.Range
 
                .Text = Prenom & " " & Nom
 
            With .Paragraphs
                .Alignment = wdAlignParagraphCenter
                .Borders(wdBorderLeft).Visible = False
                .Borders(wdBorderBottom).Visible = True
                .Borders(wdBorderTop).Visible = False
                .Borders(wdBorderRight).Visible = False
            End With
        End With
    End If

Encore une fois, merci d'avance pour l'aide : )

[Heureux-oli]

Salut,

Je n'ai pas d'explication.

Chez moi tout fonctionne correctement.

J'ai tenté plusieurs choses pour tenter de reproduire ton problème, en vain.

Je sélectionne le signet, j'ajoute du texte au signet, je souligne la sélection => OK
Je sélectionne le signet, j'ajoute du texte à la sélection et je souligne => OK

[c.piette]

Bonjour Heureux-oli,


Au passage, merci pour ton tuto sur comment débuter en vba Word ; )

J'avoue que après coup je n'ai pas non plus d'explication. Je me suis contenté d'effectuer un saut de ligne depuis la sélection et de là, d'ajouter la bordure et ça a fonctionné.


Bonne journée à toi : )