Bonjour,
J'ai fait un programme pour backtester un fichier historique de cours de bourse (env. 100.000.000 lignes).
Je dois récupérer le nombre de lignes pour l'utiliser ensuite dans une variable.
J'ai utilisé le code suivant qui fonctionne mais peut-être quelqu'un a un code qui serait plus optimisé donc plus rapide que le mien
J'ai fait un programme pour backtester un fichier historique de cours de bourse (env. 100.000.000 lignes).
Je dois récupérer le nombre de lignes pour l'utiliser ensuite dans une variable.
J'ai utilisé le code suivant qui fonctionne mais peut-être quelqu'un a un code qui serait plus optimisé donc plus rapide que le mien
Code:
Sub Test()
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Dim DocLigne() As String
Dim Ligne, X As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Excel\VWAP.txt", ForAppending, False)
A = f.Line - 1
f.Close
Set fso = Nothing
End Sub