Discussion :

[pgz]

Bonjour.

Ben les champs et les signets, ce n'est pas la même chose !
Du coup, si tes signets ne sont pas de simples points d'insertion, tu peux essayer

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
Sub norma()
Dim sPath As String
 
sPath = "G:\Contrats de Travail\Chrono\"
 
With ActiveDocument
    sPath = sPath & .BookMarks("CONTRAT").Range.text
    MsgBox "sPath = " & sPath
    sPath = sPath & .BookMarks("PRENOM").Range.text
    MsgBox "sPath = " & sPath
    sPath = sPath & .BookMarks("NOM").Range.text
    MsgBox "sPath = " & sPath
 
    .SaveAs sPath & ".doc"
End With
 
End Sub

Cordialement,

PGZ

[fpicaut]

On touche presque au but, sauf que:

FORMTEXT CDI FORMTEXT NOM FORMTEXT PRENOM.doc

Peux-t on supprimer FORMTEXT ?

Sinon, je reposerai la question entre les champs et les signets sur une autre file.

Merci.

[pgz]

Bonsoir.

Cela vient d'où ces FORMTEXT ? Peux-tu montrer ce que tu lis en MsgBox ?

Cordialement,

PGZ

[clementmarcotte]

Pas d'idée ?

1) Mettons que tu pourrais avoir l'idée de répondre à PGZ

2) Mettons que tu pourrais aussi avoir l'idée d'ouvrir ton aide de VBA-Word et de faire une recherche avec replace

[fpicaut]

Oups ! désolé !

Je ne sais pas d'où ils viennent ... je n'ai pas ces références dans le contenu des champs.