Liste Word vers tableau Excel

Bonjour, j'ai une liste très exhaustive sur Word et j'aimerais la formuler dans un tableau Excel.

Chaque item contient différentes informations, j'aimerais avoir votre avis sur la faisabilité de mon projet. J'ai créé un exemple Word et Excel en images. Ici, certains ont une ligne inscrite "Produit Cellier",, d'autres non. Même chose pour la ligne "Pastille de goût". Que feriez-vous? Faut savoir que j'ai environ 9000 items à classer, je cherche une solution rapide :)

Merci!l

raphgiroux a écrit :

J'ai créé un exemple Word et Excel en images.

Bonjour,

peut-on avoir ces exemples en fichier ?

Un exemple simple ... il suffit ensuite de retraiter les informations.

Sub lire()
' ACTIVER MICROSOFT WORD OBJECT LIBRARY

Dim WordDoc As Word.Document
Dim WordApp As Word.Application
Dim Wb As Workbook

    Set Wb = ThisWorkbook
    Set WordApp = New Word.Application
    WordApp.Visible = False
    Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\mondocument.docx", ReadOnly:=True)

    With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With

    Wb.ActiveSheet.Range("A1").Select
    Wb.ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False

End Sub

Bonjour à tous

En sauvegardant le Word en texte on doit pouvoir le traiter via POwerQuery intégré à Excel