Copier un tableau Excel dans word sous forme d'image
1 réponse
Muriel
Bonjour =E0 tous
J'ai une macro excel qui copie sans liaison des tableaux=20
format=E9s dans un doc Word mais quand je fais un coller=20
simple dans Word la mise en forme a totalemnt disparu.
(hors marge par exemple)
Je n'arrive pas =E0 trouver en VB un collage sp=E9cial image=20
d'excel =E0 Word. Dans ce cas l=E0 le formatage du tableau est=20
conserv=E9 dans Word.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour Muriel; Quelque chose comme:
' Nécessite une référence à Microsoft Word Sub RangeToDocument() Dim Word As Word.Application, Doc As Word.Document On Error GoTo Fin Set Word = GetObject(, "Word.Application") Set Doc = Word.ActiveDocument Selection.CopyPicture xlScreen Word.Selection.Paste Set Doc = Nothing: Set Word = Nothing Exit Sub Fin: MsgBox "Erreur: " & Err.Number & vbLf & Err.Description, 64 End Sub
MP
"Muriel" a écrit dans le message de news:17cac01c42206$de34b1c0$ Bonjour à tous
J'ai une macro excel qui copie sans liaison des tableaux formatés dans un doc Word mais quand je fais un coller simple dans Word la mise en forme a totalemnt disparu. (hors marge par exemple)
Je n'arrive pas à trouver en VB un collage spécial image d'excel à Word. Dans ce cas là le formatage du tableau est conservé dans Word.
Merci de votre aide.bonne journée.
muriel
Bonjour Muriel;
Quelque chose comme:
' Nécessite une référence à Microsoft Word
Sub RangeToDocument()
Dim Word As Word.Application, Doc As Word.Document
On Error GoTo Fin
Set Word = GetObject(, "Word.Application")
Set Doc = Word.ActiveDocument
Selection.CopyPicture xlScreen
Word.Selection.Paste
Set Doc = Nothing: Set Word = Nothing
Exit Sub
Fin: MsgBox "Erreur: " & Err.Number & vbLf & Err.Description, 64
End Sub
MP
"Muriel" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:17cac01c42206$de34b1c0$a001280a@phx.gbl...
Bonjour à tous
J'ai une macro excel qui copie sans liaison des tableaux
formatés dans un doc Word mais quand je fais un coller
simple dans Word la mise en forme a totalemnt disparu.
(hors marge par exemple)
Je n'arrive pas à trouver en VB un collage spécial image
d'excel à Word. Dans ce cas là le formatage du tableau est
conservé dans Word.
' Nécessite une référence à Microsoft Word Sub RangeToDocument() Dim Word As Word.Application, Doc As Word.Document On Error GoTo Fin Set Word = GetObject(, "Word.Application") Set Doc = Word.ActiveDocument Selection.CopyPicture xlScreen Word.Selection.Paste Set Doc = Nothing: Set Word = Nothing Exit Sub Fin: MsgBox "Erreur: " & Err.Number & vbLf & Err.Description, 64 End Sub
MP
"Muriel" a écrit dans le message de news:17cac01c42206$de34b1c0$ Bonjour à tous
J'ai une macro excel qui copie sans liaison des tableaux formatés dans un doc Word mais quand je fais un coller simple dans Word la mise en forme a totalemnt disparu. (hors marge par exemple)
Je n'arrive pas à trouver en VB un collage spécial image d'excel à Word. Dans ce cas là le formatage du tableau est conservé dans Word.
