Discussion :

[jakfa]

Bonjour, je suis totalement débutant en vba et j'aimerais avoir une macro dans un classeur excel qui me permettrait de copier deux feuilles de deux autres classeurs.
Pour synthétiser, j'aimerais à partir d'un classeur A en appuyant sur un bouton copier une feuille du classeur B et une feuille du classeur C dans ce classeur A.
J'ai essayé d'adapter des macro trouvé sur internet mais je n'y suis pas parvenu, une aide serait la bienvenue svp.

[BlueMonkey]

Bonjour,

Pour faire la copie dans le classeur courant de 2 feuilles provenant de 2 autres classeurs :

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
'noms des classeurs sources
Const WB_NAME_B As String = "C:\classeurB.xls"
Const WB_NAME_C As String = "C:\classeurC.xls"
 
'noms des feuilles de chaque classeur source à copier
Const WS_NAME_B As String = "Feuil1"
Const WS_NAME_C As String = "Feuil2"
 
Sub Copy2FeuillesDansLeClasseurCourant()
    Dim wbSource As Workbook
    Set wbSource = Workbooks.Open(WB_NAME_B)
    wbSource.Worksheets(WS_NAME_B).Copy after:=ThisWorkbook.ActiveSheet
    wbSource.Close
 
    Set wbSource = Workbooks.Open(WB_NAME_C)
    wbSource.Worksheets(WS_NAME_C).Copy after:=ThisWorkbook.ActiveSheet
    wbSource.Close
 
    Set wbSource = Nothing
End Sub

Pour progresser en VBA regarde les supports de cours.

A+

[jakfa]

merci bien