Macros sur Plusieurs fichiers Excel

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:

---

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

---

Salut

Je ne suis pas certaine d'avoir bien compris ce que tu cherches à savoir... mais voici tout de même comment créer un nouveau classeur et l'enregistrer dans le dossier en cours.

Code:

---

1 2 3 4

Sub ajoutClasseur(NomFichier As String) Workbooks.Add Workbooks(Workbooks.Count).SaveAs NomFichier End Sub

---

Tu peux aussi éviter de sélectionner les objets, ce qui rend l'exécution du code plus directe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() AjoutClasseur "fusion.xls" Application.Workbooks.Open "C:\TEMP\TOTO\AA1.xls" Windows("AA1.xls").Sheets("onglet_A").Copy Before:=Workbooks("fusion.xls").Sheets(1) Application.Workbooks.Open "C:\TEMP\TOTO\AA1.xls" Windows("BB1.xls")Sheets("onglet_B").Copy Before:=Workbooks("fusion.xls").Sheets(1) Windows("fusion.xls").Activate End Sub

---

Merci pour cette réponse.

en ne mettant pas le select, ça marche pas chez moi. donc je l'ai laissé. :oops:

Voici ce que ça donne :)

Code:

---

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

'Creer un nouveau classeur Sub ajoutClasseur(NomFichier As String) Workbooks.Add Workbooks(Workbooks.Count).SaveAs NomFichier End Sub     'fusion des onglets Private Sub CommandButton1_Click()   ajoutClasseur "fusion.xls"   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\BB1.xls" Windows("BB1.xls").Activate Sheets("onglet_B").Select Sheets("onglet_B").Copy Before:=Workbooks("fusion.xls").Sheets(1)   Windows("fusion.xls").Activate     Sheets("Feuil1").Select ActiveWindow.SelectedSheets.Delete Sheets("Feuil2").Select ActiveWindow.SelectedSheets.Delete Sheets("Feuil3").Select ActiveWindow.SelectedSheets.Delete   End Sub

---

Il me reste deux petits points noirs.
- Est-il possible de créer une variable (chemin) qui contient : "C:\TEMP\TOTO" ? Comme ça je taperai : chemin\AA1.xls :mouarf:
- Lors de la création du fichier fusion. On le sauvegarde. Est-il possible de le sauvegarder à un endroit précis ?


Merci de vos réponses.

Recoucou tlm,
Rien à faire, je n'y arrive pas :oops: . J'ai quasiement tout essayé :(
Help me :mrgreen:

Bonjour,
Tout marche à merveille pour l'instant. Un grand merci à vous. C'est vraiment Génial.

Je passe le topic en résolu. Super