Salut,
J'ai (encore) un petit problème.
Je dispose de trois fichiers Excel : lancement.xls , AA1.xls et BB1.xls.
Ils sont tous placés dans un même dossier, disons : "C:\TEMP\TOTO"

Les fichiers AA1 et BB1 ne contiennent qu'un seul onglet (nommons-les : onglet_A pour AA1 et onglet_B pour BB1).

Je souhaite qu'en appuyant sur un bouton (présent dans la feuille lancement),
Il crée un nouveau classeur qui contiendra les onglets : onglet_A et onglet_B et qu'il sauvegarde le classeur sous le nom : fusion.xls.

Comment faire ?

J'ai ecrit un bout de code (mais je crée fusion.xls à la main et je mets pas le chemin "C:\TEMP\TOTO" en "macros variable pour pas répéter) en m'inspirant de plusieurs morceaux de la faq :

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
Private Sub CommandButton1_Click()
 
 
Application.Workbooks.Open "C:\TEMP\TOTO\AA1.xls"
Windows("AA1.xls").Activate
Sheets("onglet_A").Select
Sheets("onglet_A").Copy Before:=Workbooks("fusion.xls").Sheets(1)
 
 
Application.Workbooks.Open "C:\TEMP\TOTO\AA1.xls"
Windows("BB1.xls").Activate
Sheets("onglet_B").Select
Sheets("onglet_B").Copy Before:=Workbooks("fusion.xls").Sheets(1)
 
Windows("fusion.xls").Activate
 
 
End Sub