Problème code lien word-Excel

Bonjour,

J'ai repris un bout de code que j'ai trouvé sur le net, permettant de récupérer un classeur Excel et de l'ouvrir avec Word.

Le problème c'est qu'en l'adaptant je tombe sur une erreur :

Erreur d'execution 5792, le fichier apparemment endommagé.

Voici la ligne :

Selection.InsertFile FileName:=oXlWbk.FullName, Range:=oXlWsh.Name & "!", ConfirmConversions:=False

Et le code :

Sub Main()
'
' Main Macro
'
'

Dim oXlApp As Object 'Excel.Application
Dim oXlWbk As Object 'Excel.Workbook
Dim oXlWsh As Object 'Excel.Worksheet

'Lancer une instance Excel
Set oXlApp = CreateObject("Excel.Application")

'Ouvrir le classeur Excel en lecture seule
Set oXlWbk = oXlApp.Workbooks.Open("C:\Users\Tortank\Documents\Fichier_Macro\Classeur2.xlsx", , True)

'Parcourir les feuilles du classeur Excel
For Each oXlWsh In oXlWbk.Worksheets
'Insérer les feuilles Excel dans le document Word actif
Selection.InsertFile FileName:=oXlWbk.FullName, Range:=oXlWsh.Name & "!", ConfirmConversions:=False
Next oXlWsh

'Fermer le classeur Excel
oXlWbk.Close

'Quitter Excel
oXlApp.Quit

'Libérer les ressources
Set oXlWsh = Nothing
Set oXlWbk = Nothing
Set oXlApp = Nothing

End Sub

Merci pour votre aide.

J'ai essayé de faire plus simple pour essayer de contourner mon problème, mais maintenant j'ai une autre erreur...

Sub TEST()

Dim appXl As Word.Application
Dim Wb As Word.Workbooks

Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("C:\Users\Tortank\Documents\test.xlsx")

End Sub

L'erreur sur la ligne :

 Dim Wb As Word.Workbooks 

est "Type défini par l'utilisateur non défini"

Je ne comprends vraiment pas quoi faire...