Export classeur Excel vers autre classeur Excel

Bonsoir,

Je viens vous solliciter car je suis bloqué avec une manipulation que je veux utiliser pour transférer une feuille d'un classeur Excel vers mon classeur Excel sur lequel je travaille.

Je m'explique: j'ai deux fichiers Excel. Je souhaite utiliser un fichier Excel contenant déjà certaines données (dans la feulle "Feuille_export"), les transférer vers mon classeur de travail sur une feuille dédiée ("Feuille_recevant_export").

Pour cela, j'ai utilisé un code qui initialement choisit un fichier texte pour le transformer en un fichier Excel.

MonFichier = Application.GetOpenFilename("Excel Files (*.xls), *.xls, Excel Files (*.xls), *.xls, All Files (*.*), *.*") 'Ouvre un fichier texte sélectionné

If MonFichier <> False And MonFichier <> "" Then

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & MonFichier, Destination:=Range("$A$1"))

.FieldNames = True

.PreserveFormatting = True

.RefreshStyle = xlInsertDeleteCells

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.TextFileStartRow = 1

.TextFileParseType = xlDelimited

.TextFileSemicolonDelimiter = True

.Refresh BackgroundQuery:=False

End With

End If

Mais j'aimerai en fait sélectionner un fichier Excel existant déjà et transférer les données EXCEL vers mon classeur de travail Excel. Mais je ne parviens pas à adapter ce code à ma guise pour que ça marche.

Quelqu'un pourrait m'aider sur ce point ?

Je vous joins mes deux fichiers Excel.