Importer données de Word vers Excel

Bonjour,

Je souhaiterais copier des données d'une feuille Word vers un fichier Excel via une macro VBA Word. Je génère un fichier Word avec un premier bout de fichier de macro qui est une liste d'abréviations :

AGA

AFE

BCE

GFA

L'objectif est de copier chaque abréviation dans une cellule dédiée de la colonne A. J'arrive à ouvrir le fichier Excel souhaitait mais n'arrive pas à réaliser le collage des données. Voici le bout de code de VBA Word (défaillant) correspondant :

    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet, strFich$
    Dim xlrow As Range

    Selection.WholeStory 'Sélection du fichier Word
    Selection.Expand wdParagraph
    Selection.Copy 'Copie du contenu du fichier Word

    strFich = "chemin fichier.xlsm"
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open(strFich)
    Set xlSheet = xlBook.Sheets(2)
    Set xlrow = xlSheet.Range("A2:A500")

    Selection.Paste

L'un de vous a une piste de réponse, ou même une réponse complète à cette question?

En vous remerciant par avance.

Bonjour Jeje29100

Perso je pense que vous vous y prenez dans le mauvais sens

Je ferais une macros Excel pour ouvrir le fichier Word et coiper/coller les données voulue

Par contre, je soumets juste l'idée

Bonjour,

J’envisageais cette solution en deuxième recours car j’ai une partie de code déjà écrite en word et je pense que je devrais l’adapter sur vba Excel.

Bonjour Jeje29100

Pas forcément, il suffit d'ajouter la référence Word dans Excel et d'utiliser les variables objet

A+

C’est à dire ajouter la référence word dans Excel?

Re,

Dans VBA project pour être plus exacte

A+