XL 2019 Copier données texte Word vers Excel

jeremy29100 · 22 Juillet 2022

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 :

VB:

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 · 26 Juillet 2022

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

VB:

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

XL 2019 Copier données texte Word vers Excel

jeremy29100

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Discussions similaires