Modifier une macro
J’ai trois classeurs : (classeur1, copie stat et liste comp).
J’ai enregistré une macro qui permet d’enregistrer les deux classeurs copie stat et liste comp sous classeur1, le probleme c’est vque je dois ouvrir à chaque fois les trois fichiers pour que la macro fonctionne :
Sub Macro1()
Windows("Copie de stat 04 2013 (2).xlsx").Activate
Sheets("Feuil1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xlsm").Activate
Sheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Windows("liste compl 04 2013.xlsx").Activate
Sheets("Sheet1").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xlsm").Activate
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Windows("liste compl 04 2013.xlsx").Activate
Sheets("Sheet2").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xlsm").Activate
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste
Windows("liste compl 04 2013.xlsx").Activate
Sheets("Sheet3").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xlsm").Activate
Sheets("Feuil4").Select
Range("A1").Select
ActiveSheet.Paste
Windows("liste compl 04 2013.xlsx").Activate
Sheets("Sheet4").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xlsm").Activate
Sheets("Feuil5").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Est-il possible de modifier cette macro de façon à peut être ajouter deux input box?
Input box 1 : entrer le nom et le chemin du premier classeur à copier
Input box 2 : entrer le nom et le chemin du deuxième classeur à copier
sachant que le dossier contenant les 3 classeurs sera enregistré sur le bureau.
Merci
Merci beaucoup banzai, ton code marche tres bien.