Comment copier des feuilles d'un fichier à un autre

[jf27]

Salut à tous

je documente une fiche dans un fichier A en appelant un template.
Je veux ensuite copier dans A la feuille rawdatabase du fichier B, je ne comprends pas pourquoi le code suivant de fonctionne pas ??.

Sheets("Raw_Database").Copy Before:=currentfile

current file n'est pas reconnu?? est ce la sauvegarde qui fait que le set n'est plus actif à ma connaissance no

des idées MERCI
@+

***********CODE**********
'Create excelfile for current product
Set currentfile = Workbooks.Add(applicationpath & "\Program_Files\" & "FileTemplate2.xls")

currentfile.SaveAs Filename:=applicationpath & "\Product_files\" & Me.OEM.Value & "_" & Me.vehicleName.Value & "_" & systloc.Value

'Copy datas in Product file
'OEM
Workbooks("HBS03.xls").Activate
Sheets("Raw_Database").Select
Sheets("Raw_Database").Copy Before:=currentfile
currentfile.Activate

 

[Catrice]

Re : Comment copier des feuilles d'un fichier à un autre

Bonsoir,

Il faut déjà remplacer Applicationpath par Application.Path
Sur mon PC je n'ai pas Program_Files mais Program Files.
Tu es sur Mac ?

Application.Path me renvoie :
C:\Program Files\Microsoft Office\Office10
et Application.Path & "\Program_Files\" & "FileTemplate2.xls" renvoie :
C:\Program Files\Microsoft Office\Office10\Program_Files\FileTemplate2.xls
Il y a 2 fois Program Files. Tu as bien créé un 2eme dossier Program Files ?
Ou bien s'agit il de Product_files ?

Il faut que FileTemplate2.xls existe.

Ne vaut il pas mieux utiliser ceci pour trouver les Modèles ?
Application.TemplatesPath

 

[jp14]

Re : Comment copier des feuilles d'un fichier à un autre

Bonsoir
Bonsoir Catrice

Un fil avec une macro pour copier des données d'unclasseur vers un autre classeur

https://www.excel-downloads.com/threads/regrouper-plusieurs-classeurs-excel-en-un.107351/


Jp