Discussion :

[mamax29]

Bonjour,

j'ai un fichier CSV qui contient des stats, un fichier généré par jour.
Je souhaite extraire ce données pour les ajouter chaque jour dans un classeur existant à partir duquel je pourrais réaliser mes graphiques.

Pour le moment mon fichier est importé dans un classeur temporaire et cela ressemble à cela:

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
      A        B
1   Date   10/06/2010
2   NE     CT001
3   PUPE1  12375
4   PUPE2  12375
5   PUPE3  12375
6   PUPE4  12375
7   PUPE5  12375
8   PUPE6  12375
9   PUPE7  12375
10  PUPE8  12375
11 
12  NE     CT010
13  PUPE1  12375
14  PUPE2  12375
15  PUPE3  12375
16  PUPE4  12375
12
13  NE     CT032
14  PUPE1  1409
...etc...

Dans mon classeur cible j'ai une feuille par NE (CT001, CT010, CT032 ....)
et chaque feuille est formaté de la façon suivante:

Code :

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

1
2
3
4
     A           B        C        D       E    ...
1  Date         PUPE1   PUPE2    PUPE3   PUPE4
2  10/06/2010   12375   12375    12375   12375
.... fichier à compléter avec chaque nouveau fichier

Pour le moment, j'arrive très bien à le faire, mais sans boucle, du coup j'ai une ligne de code par donnée à copier..

Quelqu'un pourrait-il m'aider pour faire cela en boucle "for"

[DeaD78]

Bonjour,

Fais-nous déjà voir le code répétitif que tu as qui fonctionne. Par exemple, les lignes de code qui correspondent aux 3 premiers NE.

A+

[mamax29]

Voilà le code sans boucle:

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
 
	'Ouverture du fichier de suivi de la charge CIC sur les PUPE
        Set wbanalyse = Workbooks.Open(fichieranalyse)
 
        'Copie des données CT001
        Set wsanalyse = wbanalyse.Sheets("CT001")
        ligne = wsanalyse.Range("A1").End(xlDown).Row + 1
        'Date
        wsanalyse.Cells(ligne, "A").Value = wstemp.Cells(1, "B").Value
        wsanalyse.Cells(ligne, "A").NumberFormat = "m/d/yyyy"
        'Valeurs
        wsanalyse.Cells(ligne, "B").Value = wstemp.Cells(3, "B").Value
        wsanalyse.Cells(ligne, "C").Value = wstemp.Cells(4, "B").Value
        wsanalyse.Cells(ligne, "D").Value = wstemp.Cells(5, "B").Value
        wsanalyse.Cells(ligne, "E").Value = wstemp.Cells(6, "B").Value
        wsanalyse.Cells(ligne, "F").Value = wstemp.Cells(7, "B").Value
        wsanalyse.Cells(ligne, "G").Value = wstemp.Cells(8, "B").Value
        wsanalyse.Cells(ligne, "H").Value = wstemp.Cells(9, "B").Value
        wsanalyse.Cells(ligne, "I").Value = wstemp.Cells(10, "B").Value
 
        'Copie des données CT010
        Set wsanalyse = wbanalyse.Sheets("CT010")
        ligne = wsanalyse.Range("A1").End(xlDown).Row + 1
        'Date
        wsanalyse.Cells(ligne, "A").Value = wstemp.Cells(1, "B").Value
        wsanalyse.Cells(ligne, "A").NumberFormat = "m/d/yyyy"
        'Valeurs
        wsanalyse.Cells(ligne, "B").Value = wstemp.Cells(13, "B").Value
        wsanalyse.Cells(ligne, "C").Value = wstemp.Cells(14, "B").Value
        wsanalyse.Cells(ligne, "D").Value = wstemp.Cells(15, "B").Value
        wsanalyse.Cells(ligne, "E").Value = wstemp.Cells(16, "B").Value
 
        'Copie des données CT032
        Set wsanalyse = wbanalyse.Sheets("CT032")
        ligne = wsanalyse.Range("A1").End(xlDown).Row + 1
        'Date
        wsanalyse.Cells(ligne, "A").Value = wstemp.Cells(1, "B").Value
        wsanalyse.Cells(ligne, "A").NumberFormat = "m/d/yyyy"
        'Valeurs
        wsanalyse.Cells(ligne, "B").Value = wstemp.Cells(19, "B").Value
        wsanalyse.Cells(ligne, "C").Value = wstemp.Cells(20, "B").Value
        wsanalyse.Cells(ligne, "D").Value = wstemp.Cells(21, "B").Value
        wsanalyse.Cells(ligne, "E").Value = wstemp.Cells(22, "B").Value
        wsanalyse.Cells(ligne, "F").Value = wstemp.Cells(23, "B").Value
        wsanalyse.Cells(ligne, "G").Value = wstemp.Cells(24, "B").Value
        wsanalyse.Cells(ligne, "H").Value = wstemp.Cells(25, "B").Value
        wsanalyse.Cells(ligne, "I").Value = wstemp.Cells(26, "B").Value