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.
->J'obtiens l'erreur suivante Application-Defined or Object-Defined error
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)
merci d'avance pour votre aide.
Partager