Excel Word et bookmarks

[Claudy]

Bonjour,
une macro importe des données reprises dans une feuille excel vers un document word contenant des signets.
ça fonctionne bien, mais à chaque fois les signets de mon doc sont éffacés!
Ma macro:
Public Sub Test()

Dim Lettre As String
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document

On Error Resume Next

Lettre = "C:\Users\weets.c\Desktop\Ann C.docx"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True

Set LeDocWord = ObjWord.Documents.Open(Lettre)


Set nom = ThisWorkbook.Sheets("Formulaire").Range("C3")
Set PreNom = ThisWorkbook.Sheets("Formulaire").Range("C4")
Set grade = ThisWorkbook.Sheets("Formulaire").Range("C5")
Set matri = ThisWorkbook.Sheets("Formulaire").Range("C6")

With LeDocWord
.Bookmarks("Nom").Range.text = nom
.Bookmarks("prenom").Range.Text:=PreNom
.Bookmarks("grade").Range.Text:=grade
.Bookmarks("matricule").Range.Text:=matri

End With


Set ObjWord = Nothing

End Sub

Merci d'avance ,
Claudy

 

[tototiti2008]

Re : Excel Word et bookmarks

Bonjour Claudy,

Peut-être par là (dernière réponse de freust)
[WORD] Formulaire VBA - Consulter le sujet • Forum du laboratoire des technologies Microsoft



Edit : pas l'air de marcher, peut-être par là alors
VBA Word - Signet et autres codes page 2 - Langages dérivés / VBA, Visual Basic, VB6, VB.NET, VB 2005, VB