Ajout de donnée d'un CSV dans un classeur

Version imprimable

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:

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:

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"

10/06/2010, 15h55
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+

Voilà le code sans boucle:

Code:

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