Discussion :

[Benjen]

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.

[joe.levrai]

Bonjour,

une constante ne peut pas être variable, et tu ne peux pas valoriser ta constante avec une variable

fait plutôt comme cet exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim shtSrceName As String
Dim i as Integer
 
For i = 1 to 3
    shtSrceName = "Rapport_detaille (" & k & ")"
    Msgbox shtSrceName
Next i

[Benjen]

Merci je vais essayé sa de suite

[kiki29]

Salut, voir ici ( entre autres )

[Benjen]

Grace à vous j'ai pue avancé mais j'ai encore quelque petit problème à réglé, le premier est de mettre une variable k à la place du 1 dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chemin = "C:\Users\mpf02\Desktop\Test\Rapport_detaille (" & 1 & ").csv"
Const shtSrceName As String = "Rapport_detaille (" & 1 & ")"

Cela bug en me disant avec une variable que cela ne fonctionne pas

Ensuite je souhaite sortir un fichier CSV avec des séparateur ; à la place de , mais le problème est qu'avec mon code je n'arrive pas appliqué
la commande habituelle.

le code complet :

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
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 = 0
 
For k = 1 To 3
 
    chemin = "C:\Users\mpf02\Desktop\Test\Rapport_detaille (" & 1 & ").csv"
 
 
    Const shtSrceName As String = "Rapport_detaille (" & 1 & ")"
    Dim wkbSource As Workbook
    Workbooks.Open chemin: Set wkbSource = ActiveWorkbook
    With wkbSource
        .Worksheets(shtSrceName).Copy ThisWorkbook.Worksheets(1)
        .Close
    End With
    Set wkbSource = Nothing
 
        Cpt = Application.CountA(Range("A:A"))
 
    For i = 11 To Cpt
 
        Sheets("Rapport_detaille (" & 1 & ")").Rows(i).Copy
        Sheets("Synthese").Select
        Rows(g + i).Select
        ActiveSheet.Paste
 
    Next
 
    g = Cpt + 1 - 11
 
    Application.DisplayAlerts = False
    Worksheets("Rapport_detaille (" & 1 & ")").Delete
 
Next
 
End Sub

Encore merci d'avance.

[joe.levrai]

Pour ton problème de nom de feuille, tu n'appliques pas mes propositions :

- déclarer une variable String au lieu d'une Constante String
- utiliser l'indice k au lieu du chiffre 1

ce qui revient à intégrer dans ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim shtSrceName As String
 
For k = 1 to 3
    shtSrceName = "Rapport_detaille (" & k & ")"
    ' la suite de ton code
Next k