Discussion :

[Kyles]

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.

[Kyles]

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?

[Pierre Fauconnier]

Bonsoir

Un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?