Bonjour,

Je souhaiterais récupérer un nombre dans un fichier texte qui se situe à la dixème ligne. Le nombre de chiffre peut varier.
Je suis partis sur se code, mais je ne peux pas vraiment le tester, c'est pourquoi j'aimerais avoir vos avis.

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
Sub temps_sequence(x As String)
    i As Integer
    Dim fs As Object, src As Object
    'x correspond à l'adresse du fichier
 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set src = fs.opentextfile(x, 1)
 
    For i = 1 To 9 'saute 9 lignes
        src.skipline
    Next
 
    j = 0
    While Not src.read() = "" 'temps que l'on a des chiffres, on lit les charactères
        tempss = src.read()
        j = j + 1
    Wend
 
    tempssequence = src.read(j)  on lit et récupère le nombre.
 
End Sub
Merci de votre aide.