Bonjour,

Je cherche à copier une worksheet provenant d'un fichier template vers un nouveau workbook.

J'effectue les étapes suivantes
1) creation du nouveau workbook (sans le sauvegarder)
2) Appelle de la fonction de copy du worksheet source vers le workbook de destination.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Creation du Workbook de destination
Set appExcel = CreateObject("Excel.Application")
appExcel.SheetsInNewWorkbook = 1
Set wbExcel = appExcel.Workbooks.Add
appExcel.Visible = True
 
'Ouverture du Fichier template
Set appExcelSrc = CreateObject("Excel.Application")
Set wbExcelSrc= appExcelSrc.Workbooks.Open(MyPath)
Set wsExcelSrc= wbExcelSrc.Worksheets("Sheet1")
 
 
'copy du template source vers le fichier de destination
wsExcelSrc.Copy Before:=wbExcel.Worksheets(1)
->J'obtiens l'erreur suivante Application-Defined or Object-Defined error


merci d'avance pour votre aide.