Discussion :

[tangjuncn]

Bonjour tout le monde,

J'ai besoin d'un exemple qui lit plusieurs fichiers texte en entrée(par ex: CSV), les stocker dans la mémoire dans un Variant, après les affiche tout d'un coup dans la sheet de destination.

Qn pourrait me donner un bout de code comme exemple? Merci bcp!!

[Pierre Fauconnier]

Bonsoir

Pourquoi ne pas mettre directement le contenu dans la feuille de destination?

Si c'est en raison d'une lenteur d'affichage, place

Code :

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

1
2
 
application.screenupdating = false

en début de macro et

Code :

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

application.screenupdating = true

en fin de macro...

[cafeine]

Hello,

je rejoins Pierre, et à quoi sert de stocker les données dans un variant ?

Bonjour tout le monde,

J'ai besoin d'un exemple qui lit plusieurs fichiers texte en entrée(par ex: CSV), les stocker dans la mémoire dans un Variant, après les affiche tout d'un coup dans la sheet de destination.

Qn pourrait me donner un bout de code comme exemple? Merci bcp!!

[tangjuncn]

Parce qu'il y a des manipulation et traitement de données à faire.
Au paravant, l'exécution entre Excel et VBA sont bcp plus lent que de faire simplement tout dans VBA,non?
Les gens m'on proposé de stocker toutes les donées dans une matrice de Variant, les manipuler et afficher d'un seul coup.
Afficher sur la feuille et les manipuler ralentit.

btw, il y a une méthode de récupérer directement une colonne de la matrice de Variant?
je ne vois pas trop comment faire

[tangjuncn]

qn sait si dans une table de 2 dimensions de variant, on peut récupérer directement une colonne ou pas?

[cafeine]

Dans ce cas, autant utiliser DAO et faire un recordset sur ton fichier .CSV

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
Sub GetCol()
 
Dim strPath As String
Dim strTable As String
Dim strFolder As String
 
strPath = "c:\temp\dat.csv"
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
 
strTable = Right(strPath, Len(strPath) - InStrRev(strPath, "\"))
strFolder = Left(strPath, InStrRev(strPath, "\") - 1)
Set db = DAO.OpenDatabase(strFolder, _
                        False, _
                        False, _
                        "Text;Database=" & strFolder & ";HDR=NO;Table=" & _
                            strTable)
 
' F1 = Field numéro 1
Set rs = db.OpenRecordset("SELECT F1 FROM [" & strTable & "]", DAO.dbOpenSnapshot, _
                                DAO.dbReadOnly, DAO.dbReadOnly)
 
ActiveSheet.Range("A2").CopyFromRecordset rs
 
Set rs = Nothing
Set db = Nothing
 
End Sub