Copier/Coller entre word et Excel

Bonjour à tous

petit nouveau sur le forum et débutant sur VBA je cherche de l'aide

Je dois récuperer des données dans un tableau word pour cela j'utilise

' emetteur (dans le 1e tableau, ligne 2, colonne 2)
WDoc.Tables(1).Cell(2, 2).Range.Copy
ws.Select
ws.Cells(i, 4).PasteSpecial (xlPasteValues)

et ça marche plutôt pas mal !!!

Toutefois lorsque j'ai plusieurs lignes dans une cellule de mon tableau word la maccro me colle chaque ligne dans une cellule differente et c'est bien ça mon probleme je souhaiterais garder l'ensemble du texte dans 1 cellule

auriez vous une solution à me proposer svp ?

Dans tout les cas bonne journée à tous

Bonjour demonjohn

Quelle est la forme de ton fichier Word ?

Un fichier exemple pour t'aider serait le minimum !

Bonjour

Malheureusement je peu pas le faire du boulot donc je fait ça en rentrant à la maison

À plus tard

Re bonjour

vous trouverez ci- joint le document word que je reçoit .

Je souhaiterais extraire sur un fichier Excel les données importante de ce document

Pour les cellules avec une seul ligne j'ai pas de soucis en utilisant ce code

' emetteur (dans le 1e tableau, ligne 2, colonne 2)
WDoc.Tables(1).Cell(2, 2).Range.Copy
ws.Select
ws.Cells(i, 4).PasteSpecial (xlPasteValues)

Mais c'est une autre histoire pour les cellules avec plusieurs ligne je m'explique :

Dans "Objet de la demande" sur le document Word ( WDoc.Tables(5).Cell(2.1) )

Je souhaiterais récupérer le texte dans 1 cellule Excel mais j'ai un problème . En utilisant la macro ci-dessus , je me retrouve avec

1 cellule vide puis en dessous "Je voudrais réussir ..." et enfin en dessous "En tout cas..." .

J'ai essayé toutes les possibilités que j'ai trouvé de PasteSpecial mais impossible de regrouper le texte dans 1 cellule

Merci d'avance pour votre aide et n'hésitez pas à me demander plus d'infos si nécessaire

Bonne soirée

Bonjour,

En suivant les explications de ce lien CI et puis de ce lien LA on arrive à faire ce que tu souhaites

Pierre

salut pierrep56

merci pour la réponse rapide toutefois vu mon niveau plus que médiocre je n'arrive pas à déduire des explications de ton lien les données qui pourraient éventuellement me servir

serais tu me donner un exemple sur la base de mon document?

Bonne soirée et merci

Ok, voici du code exemple basé sur ton doc pour importer le contenu du doc dans excel (si j'ai bien compris la demande).

Voir fichier joint, avec variantes au choix.

Un clic sur un bouton pour choisir le fichier à importer.

'Pour le premier tableau
With WordDoc.Tables(1)
    'le contenu de la case ligne 1 colonne 2 est tronçonné selon les marques de retour à la ligne(=Chr(13))
    T = Split(.cell(1, 2).Range.Text, Chr(13))
    ' le premier tronçon est placé en colonne A de la feuille excel
    ActiveSheet.Cells(lig, "A").Value = T(0)

    '...

    'le contenu de la case ligne 2 colonne 2 est tronçonné selon les marques de retour à la ligne
    T = Split(.cell(2, 2).Range.Text, Chr(13))

' Variante 1 : chaque ligne dans une cellule
    ' le premier tronçon est placé en colonne C de la feuille excel
    ActiveSheet.Cells(lig, "C").Value = T(0)
    ' le deuxième  tronçon est placé en colonne D de la feuille excel
    ActiveSheet.Cells(lig, "D").Value = T(1)

'Variante 2 : ligne 1 + ligne 2 dans la même cellule
    ' les 2 premiers tronçons sont placés en colonne E de la feuille excel
    ActiveSheet.Cells(lig, "E").Value = T(0) & " " & T(1)

Bonne journée

Pierre

Bonjour

vous venez de me faire gagner énormement de temps pour mon boulot et je vous remercie grandement

c'est exactement ce que je cherchais à faire

Merci encore pour votre réactivité et au plaisir sur le forum