Discussion :

[Masmeta]

Bonjour

Je dois modifier une macro.
Il y a plusieurs ouvertures de fichiers.
Le code est celui ci :

Code :

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

1
2
3
4
5
6
7
8
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("choix.tmp", 1)
    s1 = a.readline
    s2 = a.readline
    ...................
    ................... 
    sn =a.readline 'autant de variable qu'il y a de ligne

En regardant dans le forum j'ai vu ce code la :

Code :

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

1
2
3
4
5
6
7
8
 
 Open "Path...\Choix.tmp" For Input As #1
    Do While Not EOF(1)
        Line Input #1, Ligne
        Tabli(i) = Ligne
        i = i + 1
    Loop
    Close #1

J'aimerai savoir lequel est le plus rapide, voir même le meilleur des deux.
Quels est donc votre avis?

[ouskel'n'or]

Tu devrais aussi pouvoir faire un mix des deux

Code :

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

1
2
3
4
5
6
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("choix.tmp", 1)
    Do While Not EOF(a)
        Tabli(i) = a.readline
        i = i + 1
    loop

Enfin, je pense... pour ma part je continue à utiliser la seconde version qui évite une double instanciation

[tangjuncn]

Je pense que la 1ere ne doit pas etre lente du tout, je fais comme ce que tu as fait. et stocker apres les morceaux ds une collection. même qd je lis 2,3 fichier txt de 30 Mb, en 5s, il arrive à faire le lire txtstream, split et stocker tout ds la collection.
De toute de façon, je pense s'il n'y pas trop de boucles côté VBA, c tjrs rapide.