1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Sub import()
Dim b As Variant
Dim k As Variant
Dim i As Variant
Dim n As Variant
Dim wks As Worksheet
For b = 1 To Workbooks("fichier1.xls").Sheets.Count
Workbooks("fichier1.xls").Sheets(b).Activate
n = Workbooks("fichier1.xls").ActiveSheet.Name
For Each wks In Workbooks("fichier2.xls").Worksheets
If wks.Name = n Then
Workbooks("fichier1.xls").Sheets(n).Range("B5:F50").Value = _
Workbooks("fichier2.xls").Sheets(n).Range("B5:F50").Value
Else
End If
Next
Next b
Call MsgBox("fini ", vbInformation, "import")
End Sub |
Partager