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?