Copier texte Excel vers word sans perdre mise en forme

Bonjour,

Je débute en création de macro. Je souhaite faire une macro qui copie les éléments de mon tableau (contenant des titres et des liens) vers Word. Le problème c'est que soit je colle le tableau avec les formes soit je colle le texte sans forme. Or j'aimerai pouvoir garder le texte avec sa mise en forme. J'essaie également de coller la sélection à un signet spécifique mais excel ne reconnait pas les variables wdPasteEnhancedMetafil.

Ci dessous le code de ma macro.

Option Explicit
Sub Test()
Dim docWord As Object
Dim appWord As Object
Dim Sales As String
Const wdFormatPlainText = 22
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True

    'Ouverture d'un document existant
    Set docWord = appWord.Documents.Open("Document2.docx", ReadOnly:=False)

    'Compte le nombre de paragraphe
    Set docWord = GetObject("Document2.docx")
    MsgBox docWord.Paragraphs.Count

    'copie des éléments dans excel
    Range("A2:E115").Copy

    'cherche le signet dans la feuille word
    'docWord.Selection.GoTo What:=wdGoToBookmark, Name:="test"
    '
    'Coller la plage dans Word
    'docWord.Selection.PasteSpecial DataType:=wdPasteEnhancedMetafil

    appWord.Selection.Paste

    'fusionner les cellules
    appWord.Tables(1).Cell(Row:=1, Column:=1).Merge _
    mergeTo:=appWord.Tables(1).Cell(Row:=114, Column:=5)

    docWord.Tables(1).AutoFitBehavior _
    Application.CutCopyMode = False

    'Executer la macro word
    appWord.Run "lala"

End Sub

Je vous remercie d'avance pour votre réponse.

bonjour

suggestion alternative :

dans Word, insérer objet, ton fichier Excel avec liaison

jmd a écrit :

bonjour

suggestion alternative :

dans Word, insérer objet, ton fichier Excel avec liaison

Le problème c'est que je perds la notion d'automatisation. De plus je ne veux pas faire de lien vers mon fichier excel mais recopier tout les liens de mon fichiers excel vers mon fichier word. Ensuite je modifierai à l'aide d'une macro la police du document mais pour cela je dois garder la police du document Excel.

Merci quand même pour la suggestion.

Je peux toujours passer par le xml sinon..