Copier un onglet dans un autre fichier Excel

Bonjour à tous,

voilà, j'ai un petit problème.

Dans ma macro, à un moment j'essaie de copier un onglet dans un autre classeur Excel.

Problème.

Le 1er fichier Excel est suivant dans lequel je souhaite copier l'onglet.

Le 2e fichier Excel est un fichier Excel que j'ouvre avec ma macro sous la forme d'une application Excel (appExcel as Excel.application).

les deux fichiers ne semblent pas être compatible, comment faire alors pour copier un onglet?

Je sais pas si j'ai été clair.

Un petit bout de code pourra peut etre aider :

Sub DonnéesBrutes()

Dim appBo As busobj.Application
Dim DocBO As busobj.Document
Dim appExcel As Excel.Application
Dim DocExcel As Excel.Workbook
Dim OngletExcel As Excel.Sheets

Set DocBO = Nothing
Set appBo = Nothing

Set appBo = New busobj.Application

appBo.Visible = False
appBo.Interactive = False

adress = "C\..."

Set DocExcel = Nothing

Set appExcel = CreateObject("Excel.Application")

appExcel.Visible = True
appExcel.Interactive = True

Set DocExcel = appExcel.Application.Workbooks.Open(adress)

appExcel.ActiveWorkbook.Sheets("feuil1").Select
appExcel.ActiveWorkbook.Sheets("feuil1").Copy before:=Workbooks("MonDocument").Sheets(1)

.....

End Sub

J'ai volontairement enlever certains détails.

Mon problème vient principalement de ce qui vient des dernieres lignes

Si je n'ai pas été assez clair, n'hésiter pas.

Merci

Bonjour,

Remplace :

appExcel.ActiveWorkbook.Sheets("feuil1").Select 
appExcel.ActiveWorkbook.Sheets("feuil1").Copy before:=Workbooks("MonDocument").Sheets(1)

Paar :

appExcel.ActiveWorkbook.Sheets("feuil1").Copy before:=Workbooks("MonDocument.xls").Sheets(1) 

Vérifies aussi que ta feuille est bien nommée "feuil1" et non "Feuil1". De même pour "MonDocument"

Je pense que le code aurait pu être plus simple sans créer des objets "appExcel".

Amicalement

Dan