Importer dans Excel du word

bjr à tous,

je recherche sans succès comment importer une liste issue d'une copie ecran avec Paint place dans word vers un tableau excel ??

cela se présente comme cela dans word :

guiohmhklmjùjù yiulhlnkl! 456465

il n'y a pas de signe particulier entre ces groupes de lettres que de l'intervalle comme le montre mon exemple,

. Ces 3 "colonnes" ne sont séparé que par des espaces !!

Vu le nombre de lignes importantes (8 copies écran ) je ne peut pas les recopier une à une! Je me demande si cela est possible de transférer un tel tableau de word sur excell ??

J'espère avoir été compréhensif ....

Dans l'attente merci de votre aide

bonne soirée

@ ++++

Salut,

Sans tes fichiers à disposition, c'est assez dur de t'aider plus.

Le code ci-dessous va chercher des données dans un fichier Word depuis un fichier Excel (pour autant qu'ils soient placés dans le même dossier) :

Option Explicit

Sub importDoc()

' Il faut activer la référence "Microsoft Word xx.x Object Library"
' dans la fenêtre VBA / Outils / Références

    Dim WordDoc As Word.Document
    Dim WordApp As Word.Application
    Dim rep As String

    rep = ThisWorkbook.Path & "\"
    Set WordApp = New Word.Application    'crée une instance de Word
   WordApp.Visible = False    'masquer l'instance Word
   Set WordDoc = WordApp.Documents.Open(rep & "Va_avec_fichier_Excel_Word_ouvrir_un_document.doc", ReadOnly:=True)

    'on copie toutes les données du fichier Word
   With WordApp
        .Selection.WholeStory
        .Selection.Copy
    End With

    ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    WordApp.Application.Quit
    Application.CutCopyMode = False

    Range("A" & Rows.Count).End(xlUp).Offset(10).Select

End Sub

Deux fichiers à ta disposition si tu désires effectuer des essais.

Cordialement.

Yvouille bjr et merci pour ta réponse.

Je vais essayer de suivre tes préconisations ??? Cela me parait "hard" .. Mais je vais tenter tout de même.

un grand merci pour ton aide

bonne journée

@ ++++