'
' Remplir Signet :
On Error GoTo Err_BookMarks
For Each BM In WordDoc.Bookmarks
BM.Range.Text = wsX.Range(BM.Name).Text 'ICI : ERREUR 1004'
Next BM
On Error GoTo 0
'Enregistrer nouveau fichier Word
' repertoire = ThisWorkbook.Path
' repertoire = repertoire & "\"
'
' DocName = "Pack_Test19.doc"
' WordDoc.SaveAs Filename:=repertoire & DocName
Exit Sub
Err_BookMarks:
Debug.Print Err, Err.Description
Debug.Print "BookMark=" & BM.Name
Resume Next
End Sub