1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub Consolidation_fichiers()
Dim f, fa As Worksheet, fv As Worksheet
Dim i&, lgn&, flag&
Set fa = ActiveWorkbook.ActiveSheet
fa.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
f = Application.GetOpenFilename(, , , , True)
On Error GoTo fin
flag = 0
For i = 1 To UBound(f)
Workbooks.Open (f(i))
Set fv = ActiveSheet
lgn = fa.Range("A" & Rows.Count).End(xlUp)(2).Row
If flag = 0 Then
fv.Range("A1:BY" & fv.Range("A" & Rows.Count).End(xlUp).Row).Copy fa.Range("A1")
flag = 1
Else
fv.Range("A2:BY" & fv.Range("A" & Rows.Count).End(xlUp).Row).Copy fa.Range("A" & lgn)
End If
ActiveWindow.Close
Next i
fin:
End Sub |
Partager