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 : )