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