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 essayerCordialement,
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
PGZ
Partager