[VBA] Copy WorkSheet vers un autre Workbook

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:

---

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.

J'ai remarqué que si le fichier de destination existe physiquement (sauvegardé au préalable) le code fonctionne.

le principe est le suivant
1) Creation du fichier de destination
2) Sauvegarde du Fichier
3) ouverture du fichier template
4) ouverture du fichier de destination
5) copie de la feuille template vers le fichier de destination.

Cependant cela effectue trop d'accès disques
C'est pourquoi je ne souhaite pas sauvegarder le fichier de destination avant l'export de la feuille excel.

Est ce quelqu'un aurait une idée pour éviter cette sauvegarde?

Bonsoir

Un simple

Code:

---

sheets("Feuil1").copy

---

suffit pour que Excel copie la feuille dont le nom d'onglet est renseigné vers un nouveau classeur qui devient le classeur actif.

Code:

---

1 2	Sheets("Feuil1").Copy ActiveWorkbook.SaveAs "d:\données\copie Feuille.xls"

---

copie Feuil1 dans un nouveau classeur et le sauve sous le nom renseigné.

Ok?