Bonjour je doit concaténé 250 fichier dans un seul à la suite chaque fichier comprend environs 98 lignes j'ai donc créer se code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub tri()
 
Dim chemin As String
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim l As Integer
Dim g As Integer
 
'============ouverture et copier/coller de la premiere page du fichier==================
 
g = 10
 
For k = 1 To 3
 
    chemin = "C:\Users\mpf02\Desktop\Test\Rapport_detaille (" & k & ").csv"
 
 
    Const shtSrceName As String = "Rapport_detaille (" & k & ")"
    Dim wkbSource As Workbook
    Workbooks.Open chemin: Set wkbSource = ActiveWorkbook
    With wkbSource
        .Worksheets(shtSrceName).Copy ThisWorkbook.Worksheets(1)
        .Close
    End With
    Set wkbSource = Nothing
 
    For i = 1 To 300
 
        If ThisWorkbook.Sheets("Rapport_detaille (" & k & ")").Cells(10 + i, 1) = "" Then
 
        Else
 
            ThisWorkbook.Sheets("Synthese").Range(g + i) = ThisWorkbook.Sheets("Rapport_detaille (" & k & ")").Range(10 + i)
 
            l = i
 
        End If
 
    End
 
    g = g + l
 
    Worksheets("Rapport_detaille (" & k & ")").Delete
 
Next
 
End Sub
Malheureusement pour moi il me sort une erreur de "constante requise".

J'ai donc cherché mais je ne voit pas d'ou cela peut venir, je vous demande donc de voir la ou il pourrait avoir un manque ou une erreur dans mon code sachant que je test actuellement sur 3 fichier d'ou k = 1 à 3

Merci d'avance.