Ouvrir un fichier dans un autre

Bonjour,

Je travaille sur une macro qui permet d’ouvrir n'importe quel type de fichier. Et ça fonctionne.

Maintenant ce que j'aimerais réussir à faire c'est pouvoir ouvrir un fichier dans un autre fichier pour réunir les feuilles par exemple.

Ma macro fonctionne sur Word, et j'aimerai pouvoir récupérer les données présentes dans un fichier excel.

Des idées ?

Voilà mon code :

Sub OuvertureDeFichier()

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String

   Set MonApplication = CreateObject("Shell.Application")

   MonFichier = "C:\Users\xxxxxx\Documents\Fichier_Macro\Classeur2.xlsx" 
   MonApplication.Open (MonFichier)

   Set MonApplication = Nothing
Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub

Merci d'avance pour votre aide.

Bonjour,

à tester,

Sub OuvertureDeFichier()
   Dim wk1 As Workbook, wk2 As Workbook
   Dim MonFichier As String, sh As Worksheet

   Set wk1 = ThisWorkbook

   MonFichier = "C:\Users\xxxxxx\Documents\Fichier_Macro\Classeur2.xlsx"

   On Error Resume Next
   Set wk2 = Workbooks.Open(MonFichier)

   If Err.Number <> 0 Then
    MsgBox "Erreur lors de l'ouverture de fichier..."
    Exit Sub
   End If

   For Each sh In wk2.Worksheets
    sh.Copy After:=wk1.Sheets(wk1.Sheets.Count)
   Next sh

   wk2.Close SaveChanges:=False
End Sub

Merci beaucoup, je vais regarder ça !

Je vous tiens informé.