Bonsoir a tous,
j'ai un fichier excel depuis lequel je recupère des données remplies dans un formulaire word
tous cela marche bien sauf que j'ai besoin après cette récupération d'éffacer le contenue des signets ,sans détruire les signets tout cela depuis excel
voici une partie de mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Set wordApp = CreateObject("word.application")
wordApp.Visible = False 'Word reste masqué pendant l'opéraion
Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & "\test.doc") 'ouvre le document Word
' copie les valeurs de tableau de test.doc dans la feuille archiver de nouveau.xls
With Feuil1
  .Range("C11").Value = wordDoc.Bookmarks(6).Range
  .Range("C11").Value = Replace(Feuil1.Range("C11").Value, Chr(13), Chr(10))
End With
wordDoc.Close 'fermeture document Word
wordApp.Quit
quelqu'un a une solution a me proposer ?
merci par avance