Discussion :

[7ider5]

Bonjour,

Je fais appel à vous car je n'ai pas trouvé mon bonheur sur le net.
En effet, je ne cherche pas à importer des données (il y en a beaucoup) dans une feuille à partir d'un fichier .csv mais à partir d'une variable contenant des données formatées en csv.

Je me retrouve actuellement à devoir écrire les données dans un fichier csv pour ensuite les importer via QueryTables.add.

Existe t-il une méthode plus directe pour copier les données dans des cellules sans avoir à créer un fichier?

Merci pour votre réponse.

Exemple de données dans la variable :

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
"DATETIME,o80769588,o80769589,o80769590,o80769591,o80769592,o80769593,o80769594,o80769595
2012-10-03 08:02:00.000,,,,15,7,,,
2012-10-03 08:03:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:04:00.000,1,1,1,2,1,1,1,2
2012-10-03 08:05:00.000,2,1,2,1,1,1,2,2
2012-10-03 08:06:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:07:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:08:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:09:00.000,2,1,1,2,1,1,2,2
2012-10-03 08:10:00.000,2,1,1,2,1,1,2,2
2012-10-03 08:11:00.000,2,1,2,2,2,2,1,2
2012-10-03 08:12:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:13:00.000,2,1,1,1,1,1,1,2
2012-10-03 08:14:00.000,2,1,1,1,1,1,2,2
2012-10-03 08:15:00.000,2,1,1,2,1,2,2,2
2012-10-03 08:16:00.000,2,2,2,2,2,2,2,2
2012-10-03 08:17:00.000,4,4,3,3,3,3,4,4
2012-10-03 08:18:00.000,5,4,4,4,4,4,4,4
2012-10-03 08:19:00.000,5,5,4,4,4,4,5,5

P

[Daniel.C]

Bonjour,

La première partie de la macro ci-dessous me permet de remplir la variable. Le traitement constitue la seonde partie :

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
Sub test1()
    Dim Tabl(18) As String
    'Remplisssage de la variable
    Tabl(0) = "DATETIME,o80769588,o80769589,o80769590,o80769591,o80769592,o80769593,o80769594,o80769595"
    Tabl(1) = "2012-10-03 08:02:00.000,,,,15,7,,,"
    Tabl(2) = "2012-10-03 08:03:00.000,2,1,1,1,1,1,2,2"
    Tabl(3) = "2012-10-03 08:04:00.000,1,1,1,2,1,1,1,2"
    Tabl(4) = "2012-10-03 08:05:00.000,2,1,2,1,1,1,2,2"
    Tabl(5) = "2012-10-03 08:06:00.000,2,1,1,1,1,1,2,2"
    Tabl(6) = "2012-10-03 08:07:00.000,2,1,1,1,1,1,2,2"
    Tabl(7) = "2012-10-03 08:08:00.000,2,1,1,1,1,1,2,2"
    Tabl(8) = "2012-10-03 08:09:00.000,2,1,1,2,1,1,2,2"
    Tabl(9) = "2012-10-03 08:10:00.000,2,1,1,2,1,1,2,2"
    Tabl(10) = "2012-10-03 08:11:00.000,2,1,2,2,2,2,1,2"
    Tabl(11) = "2012-10-03 08:12:00.000,2,1,1,1,1,1,2,2"
    Tabl(12) = "2012-10-03 08:13:00.000,2,1,1,1,1,1,1,2"
    Tabl(13) = "2012-10-03 08:14:00.000,2,1,1,1,1,1,2,2"
    Tabl(14) = "2012-10-03 08:15:00.000,2,1,1,2,1,2,2,2"
    Tabl(15) = "2012-10-03 08:16:00.000,2,2,2,2,2,2,2,2"
    Tabl(16) = "2012-10-03 08:17:00.000,4,4,3,3,3,3,4,4"
    Tabl(17) = "2012-10-03 08:18:00.000,5,4,4,4,4,4,4,4"
    Tabl(18) = "2012-10-03 08:19:00.000,5,5,4,4,4,4,5,5"
    'traitement
    Sheets.Add
    Columns(1).NumberFormat = "dd/mm/yyyy hh:mm"
    For i = 0 To UBound(Tabl)
        col = 0
        For Each Item In Split(Tabl(i), ",")
            col = col + 1
            Cells(i + 1, col) = Item
        Next Item
    Next i
End Sub

[7ider5]

Bonjour Daniel,

Et merci pour cette solution.

Bonne journée.

Cordialement,

P.