Bonjour à tous,

Je vais essayé d'être clair....Je reçois plusieurs fichiers excels pour chaque jour du mois par exemple un fichier excel nommé 01.03.2015.xls puis 02.03.2015, etc....
Dans les fichiers il y a des noms de communes avec des informations.
J'ai crée un classeur excel nommé general avec plusieurs onglets ( commune1, commune2, commune3) pour importer les données de tous les fichiers excel dans ce classeur.
Mais en plus d'importer, il ferais un tri.
J'ai trouvé un bout de code que j'ai modifié pour faire mon truc. ça marche mais quand il trouve des valeurs, et qu'elles vont se mettre dans le fichier general, elles s'ecrasent les unes sur les autres.
Alors que je souhaite que les lignes de resultat s'incrementent les unes apres les autres
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
Dim wkC As Workbook ' Classeur destinataire
    Dim valeur As String, commentaire As String, com As String, champ1 As String, champ2 As String, i As Integer
 
 
 
    Set wkC = Application.Workbooks.Open("C:\Users\Desktop\02.03.2015.xlsm")
 
     For i = 4 To 18
 
 
     'Commentaire en fonction de la valeur
 
 
 
     If wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE1" Then
 
 
               ThisWorkbook.Sheets("COMMUNE1").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE2" Then
 
                ThisWorkbook.Sheets("COMMUNE2").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                    ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE3" Then
 
                       ThisWorkbook.Sheets("COMMUNE3").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE4" Then
 
                                 ThisWorkbook.Sheets("COMMUNE4").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                     ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE5" Then
 
                                         ThisWorkbook.Sheets("COMMUNE5").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                            ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE6" Then
 
                                                ThisWorkbook.Sheets("COMMUNE6").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                                     ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE7" Then
 
                                                        ThisWorkbook.Sheets("COMMUNE7").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                                             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE8" Then
 
                                                                 ThisWorkbook.Sheets("COMMUNE8").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
    'wkDest.Close True 'Ferme en sauvant.
 
    End If
 
    Next i
 
 
 
     Set wkC = Application.Workbooks.Open("C:\Users\Desktop\02.03.2015.xlsm")
 
     For i = 4 To 18
 
 
     'Commentaire en fonction de la valeur
 
 
 
     If wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE1" Then
 
 
               ThisWorkbook.Sheets("COMMUNE1").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE2" Then
 
                ThisWorkbook.Sheets("COMMUNE2").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                    ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE3" Then
 
                       ThisWorkbook.Sheets("COMMUNE3").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE4" Then
 
                                 ThisWorkbook.Sheets("COMMUNE4").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                     ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE5" Then
 
                                         ThisWorkbook.Sheets("COMMUNE5").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                            ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE6" Then
 
                                                ThisWorkbook.Sheets("COMMUNE6").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                                     ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE7" Then
 
                                                        ThisWorkbook.Sheets("COMMUNE7").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
                                                             ElseIf wkC.Sheets("15").Range("C" & i).Value Like "COMMUNE8" Then
 
                                                                 ThisWorkbook.Sheets("COMMUNE8").Range("A" & i, "F" & i).Value = wkC.Sheets("15").Range("A" & i, "F" & i).Value
 
 
    'wkDest.Close True 'Ferme en sauvant.
 
 
 
    'wkDest.Close True 'Ferme en sauvant.
 
    End If
 
    Next i
 
 
 
 
 
End Sub