XL 2019 Coller texte WORD avec format police précis (gras, couleurs) dans cellule EXCEL ?

[MANTE]

Bonjour, savez-vous comment copier du texte dans word (avec polices de certains mots en gras et couleur précise), et le coller tel quel avec ces formats de police sans changement dans une cellule EXCEL ? Merci de votre aide !

 

[job75]

Bonjour MANTE,

Un simple copier-coller suffit, le plus compliqué c'est d'ouvrir le document Word :

Sub Copier_Word()
Dim chemin$, doc$, Wapp As Object, ac As Range
chemin = ThisWorkbook.Path & "\" 'dossier à adapter éventuellement
doc = Dir(chemin & "Doc Word.docx")
If doc = "" Then MsgBox "Document Word introuvable !", 48: Exit Sub
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
On Error GoTo 0
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Wapp.Documents.Open chemin & doc 'ouvre le document Word
Wapp.activedocument.Range.Copy 'copier
Application.ScreenUpdating = False
Set ac = ActiveCell 'mémorise
[E4].Select
ActiveSheet.Paste 'coller
ac.Select
ac.Copy ac 'vide le presse-papier
Wapp.Quit 'ferme Word
End Sub

Téléchargez les fichiers joints dans le même dossier (le bureau).

A+

 

[MANTE]

Merci, c'est déjà pas mal.
Je suis nul en VBA mais votre démonstration avec différents formats explique bien.
Donc ici on colle tout le texte du doc WORD (je remplacerai par le nom du mien ici si je comprends bien :
doc = Dir(chemin & "Doc Word.docx")
dans la cellule E4 (ou autre cellule de destination de ma feuille EXCEL), jusque là ça va à peu près.
Mais comment faire si je ne veux coller qu'un passage sélectionné du texte WORD avec ses formats police naturellement ?
Cordialement.

 

[job75]

Il faut que le texte à copier soit repéré par un signet (Bookmarks), fichier (2) :

Wapp.activedocument.Bookmarks("A_copier").Range.Copy 'copier

 

[MANTE]

Merci, c'est déjà pas mal.
Je suis nul en VBA mais votre démonstration avec différents formats explique bien.
Donc ici on colle tout le texte du doc WORD (je remplacerai par le nom du mien ici si je comprends bien :
doc = Dir(chemin & "Doc Word.docx")
dans la cellule E4 (ou autre cellule de destination de ma feuille EXCEL), jusque là ça va à peu près.
Mais comment faire si je ne veux coller qu'un passage sélectionné du texte WORD avec ses formats police naturellement ?
Cordialement.

 

[MANTE]

Il faut que le texte à copier soit repéré par un signet (Bookmarks), fichier (2) :

Wapp.activedocument.Bookmarks("A_copier").Range.Copy 'copier

OK MERCI BIEN USINE A GAZ ça fonctionne bien, sauf que le format du texte WORD surtout si c'est un copié collé qui vient du net est parfois d'un format curieux qui fait que le collage dans EXCEL se fait sur la cellule sélectionnée mais parfois aussi se répartit dans des cellules en dessous.
Bien cordialement.

 

[MANTE]

Il faut que le texte à copier soit repéré par un signet (Bookmarks), fichier (2) :

Wapp.activedocument.Bookmarks("A_copier").Range.Copy 'copier

Je t'ai répondu ci dessus, et merci encore !
Puisque tu as l'air calé sur EXCEL pourrais-tu jeter un œil sur un autre pb que j'ai soumis mais auquel aucune réponse n'arrive :
Bonjour, (EXCEL 2019, WINDOWS 10) ma table contient les effectifs filles et garçons du cycle secondaire par région et son Chef-Lieu de Côte d’Ivoire (+ longitude et latitude de chaque Chef Lieu si besoin, utilisés avec POWER Bi où je n’ai pas mieux réussi). En utilisant la carte 3D et uniquement les champs villes (Chef Lieux) pour la localisation précise sur carte /filles/garçons, j’obtiens des histogrammes en 3 D qui sont peu lisibles. Je voudrais afficher simplement les mêmes graphiques en 2 D comme sur le graphique de la feuille mais individuellement sur chaque chef lieu géolocalisé (et ultérieurement mettre en étiquette le nom des régions avec chaque graphique).
En clair je veux surtout afficher sur la carte des graphiques en 2D et pas en 3D.
Merci à celles ou ceux qui pourront m’aider.

 

[job75]

Sur ce forum on ne fait pas n'importe quoi : une discussion => un seul problème.

Faites un UP sur votre fil du 28 septembre (répondez à vous-même).

 

[MANTE]

Désolé je ne voulais pas faire un impair, simplement vous soumettre mon pb.. Je vais donc faire ce que vous conseillez mais je ne vois pas où ça va me mener à priori, à moins que vous repreniez la min à partit de là ? Merci.