Excel Word et bookmarks

  • Initiateur de la discussion Initiateur de la discussion Claudy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Claudy

XLDnaute Accro
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
639
Réponses
0
Affichages
730
Réponses
0
Affichages
706
Retour