Bonjour,

Bon après avoir trouvé des fonctions qui répondaient à mon sujet, j'ai plein de problèmes (copies qui ne se font pas etc...)

Je redemande donc de l'aide car je ne sais plus du tout comment faire et je dois avoir fini cette macro pour jeudi

J'ai deux fichiers Excel Template et des fichiers 1,2,3 etc.... Dans le fichier Template il y a une feuille qui s'apelle Toto et dans 1,2,3 etc.. une feuille qui s'apelle Tata-1, Tata-2 (pour le fichier 2) etc...

Je dois copier pour chaque fichier 1,2,3 etc... la feuille Tata-1, tata-2 etc.. dans le fichier Template après la feuille Toto.

Autrement dit à la fin de l'opération dans Template j'ai comme feuille Toto - Tata-1 (qui vient du fichier1), Tata-2(qui vient du 2) etc...

Je ne sais plus comment faire. Autre détail important, je dois faire des copier/coller par valeurs!

Un très grand merci d'avance !

EDIT :

je viens de trouver un code source interessant mais il y a un problème :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function Importation_donnees_Rnd(FichierSource As file, FichierDest As String, OngletSource As String, OngletDest As String)
 
 
  Set Fichier_xls_Source = GetObject(FichierSource)
  Set Fichier_xls_Source = GetObject(, "Excel.application")
 
  Fichier_xls_Source.Application.Visible = True
 
 
  Fichier_xls_Source.Application.Workbooks.Open Filename:=FichierSource
 
 
  Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Activate
  Fichier_xls_Source.Application.ActiveWorkbook.Worksheets(OngletSource).Cells.Select
  Fichier_xls_Source.Application.Selection.Copy
 
 
  Set Fichier_xls_dest = CreateObject("Excel.application")
 
  Fichier_xls_dest.DisplayAlerts = False
  Fichier_xls_dest.Workbooks.Open Filename:=FichierDest, editable:=True
  Fichier_xls_dest.Visible = True
 
 
  Fichier_xls_dest.Application.Worksheets(OngletDest).Activate
 
  Fichier_xls_dest.Application.Worksheets(OngletDest).Cells.Select
  Fichier_xls_dest.Application.Worksheets(OngletDest).Paste
 
  Fichier_xls_dest.Application.DisplayAlerts = False
  Fichier_xls_dest.ActiveWorkbook.SaveAs Filename:=FichierDest
  Fichier_xls_dest.Application.Quit
  Fichier_xls_dest.Application.DisplayAlerts = True
 
  Fichier_xls_Source.Application.DisplayAlerts = False
  Fichier_xls_Source.Application.Quit
  Fichier_xls_Source.Application.DisplayAlerts = True
 
  Set Fichier_xls_Source = Nothing
  Set Fichier_xls_dest = Nothing
 
End Function
Mon "onglet de destination" n'existe pas, je dois en créer un pour à chaque passage dans ce genre de fonction