Bonjour,

J'ai trouvé le code suivant sur un forum, mais je ne comprends pas la signification de l'instruction flag = 0, puis flag = 1. Quelqu'un pourrait m'expliquer?

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
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