Macro de copie d'Excel à Word

[mmmkott]

Bonjour,
Est-il possible de créer une macro copiant des cellules sélectionnées sous Excel et les collant sous forme de tableau dans un document Word?

Merci et @ bientôt

 

[michel]

bonjour

tu peux essayer la macro ci-dessous qui colle les cellules sélectionnées dans un nouveau document Word


Sub CollerDansWord()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim Wrd As Word.Application

Selection.Copy

Set Wrd = CreateObject("Word.Application")
On Error Resume Next
Wrd.Documents.Add
Wrd.Visible = True

Wrd.Selection.Paste
Application.CutCopyMode = False
End Sub


bonne soiree
MichelXld

 

[mmmkott]

Merci beaucoup!

J'avais de mon côté trouver une solution assez ressemblante...

Bon we!