Données Word vers Excel, pilotage par Excel

Bonjour à tous,

Merci déjà à ceux qui prennent le temps de me lire. j'ai fait un début de code qui me permet d'aller chercher un document Word et de l'ouvrir, mais je n'arrive pas à lui faire copier les informations qui sont entre signets et les coller dans mon fichier excel.

je ne sais pas si je suis assez clair, mais voici le résultat :

Sub SignetsWord()

Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim wbexcel As Excel.Workbook

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
Set wordDoc = wordApp.Documents.Open("C:.......doc", ReadOnly:=True)
With wordApp
.Selection.Bookmark ("Nom")
.Selection.Copy

ThisWorkbook.Worksheets("data").Paste

' Fermeture de Word

appWord.Application.Quit

Application.CutCopyMode = False

End With

Pourriez vous me donner un coup de main pour qu'il puisse aller chercher le signet "Nom", le copier et le coller dans la cellule A1 ?

Je vous remercie d'avance pour votre aide. 😕 et j'attends vos réponses 🙄

Goeth