Données Word vers Excel, pilotage par Excel

[Goeth]

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

 

[Caillou]

Re : Données Word vers Excel, pilotage par Excel

Bonjour,

Avec ce code par exemple (attention le tien est plein d'erreurs)

Sub SignetsWord()
  Dim wordApp As Word.Application
  Dim wordDoc As Word.Document
  
  Set wordApp = CreateObject("Word.Application")
  Set wordDoc = wordApp.Documents.Open(ThisWorkbook.Path & "\gg.doc", ReadOnly:=True)
  'copie du signet Nom en A1
  Range("A1") = wordDoc.Bookmarks("Nom").Range
  'quitter Word
  wordApp.Quit
End Sub

PS : Tout vient à temps à qui sait attendre

Caillou