XL 2019 Copier données texte Word vers Excel

[jeremy29100]

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.

 

[fanch55]

Bonjour,
En fait ce n'est pas un sujet Excel mais autres (word).
Testez le code ci-dessous dans votre fichier word

Sub test()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim strFich$

    Selection.WholeStory 'Sélection du fichier Word
    Selection.Expand wdParagraph
    Selection.Copy 'Copie du contenu du fichier Word
   
    strFich = "D:\....\chemin fichier.xlsm"
    Set xlApp = CreateObject("Excel.Application")
        Set xlBook = xlApp.Workbooks.Open(strFich)
            xlBook.Sheets(2).Range("A2").PasteSpecial xlPasteValues
            xlBook.Close savechanges:=True
        Set xlBook = Nothing
        xlApp.Quit
    Set xlApp = Nothing
   
End Sub