Récupération données excel dans word depuis excel

Ca y est! Une solution à été trouvée:


Public Sub TestCopie()

'Je définis deux objets, un qui va stocker la représentation de mon "Application Word" et l'autre de mon "Document Word
Dim WordApp, WordDoc As Object
Dim file, dossier As String

file = ThisWorkbook.Path & "\como\COMO-1.docx"

'On crée un objet "Word.Application", il se lance automatiquement
Set WordApp = CreateObject("Word.Application")

WordApp.Visible = True

'On ouvre le document word (COMO en l'occurence) et on stocke sa représentation pour pouvoir le manipuler dans notre objet "WordDoc"
Set WordDoc = WordApp.Documents.Open(file)

'InlineShapes est une énumération des objets présents dans word, le (1) correspond au numéro (il faudra le déterminer!) .OLEFormat.Open ouvre le document
'en résumé, on OUVRE le PREMIER OBJET présent dans le DOCUMENT WORD

'pour déterminer le inlineshape à ouvrir, tu pourras faire un for each objetpresent in WordDoc.InlineShapes , si le OLEFormat.Iconlabel = lenomquetuveux alors
'tu sauras que ton i correspondra à ton InlineShape à ouvrir, je te laisse poser ça tranquilou

WordDoc.InlineShapes(1).OLEFormat.Open

'en s'ouvrant, il devient l'activeworkbook (heureusement d'ailleurs sinon ça allait être très très très galère), on peut donc utiliser la propriété activeworkbook pour
'cibler les valeurs
Workbooks("DEMO.xlsm").Sheets(1).Range("C5:D5").Value = ActiveWorkbook.Sheets(1).Range("A2:B2").Value

'à la fin de ta boucle de ligne (car il va falloir faire ça pour chaque ligne de ton como, tu pourras fermer le workbook et le word.
ActiveWorkbook.Close
WordApp.Quit

End Sub

Un grand merci à Julien F. pour avoir trouvé cette solution!