Word Word vers Excel puis excel vers word

[Keran]

Bonjour je cherche a faire un copier coller dinformation saissi dans un document pour le mettre dans un fichier word et pouvoir les reimporter dans un autre fichier le tous via des macro a l'heure actuel je n'est pas reussi j'ai cela !

Sub ouvrirClasseurExcel()
Dim exl As Object
Dim Wk As Object

Dim exlfile As String, exlfile2 As String, exlfile3 As String

Set exl = CreateObject("excel.application")

exl.Visible = True
Set Wk = exl.Workbooks("effectif.xlsm")
exlfile = "effectif.xlsm"
exlfile2 = "D:\Downloads\Ressources\Ressources\"
exlfile3 = exlfile2 & exlfile


 exl.Workbooks.Open exlfile3
            Documents("Document2").Activate
            ActiveDocument.Tables(1).Rows(1).Cells(2).Select
            Selection.Range.Case = wdUpperCase
            ActiveDocument.Tables(1).Rows(1).Cells(2).Select
            Selection.Copy
                With Wk.Worksheets("ressource")
                With .Range("B8")
                    .Paste
                End With
                End With
    exl.Run "addado"
 exl.Workbooks("effectif.xlsm").Save



End Sub