Bouton de navigation vb6 à partir d'un fichier txt

   Dim t1 As String
    Dim t2 As String
    Dim t3 As String
    Dim t4 As String
    Dim t5 As String
    Dim strLigne As String
    Dim t6 As String
    Dim t7 As String
    Dim ss
    
    
    'traitement du fichier
    Open txtSrc For Input As #1          ' Ouvre le fichier en lecture
 
    Do While Not EOF(1)                  ' jusqu'à la fin du fichier.
 
    Line Input #1, strLigne

    t1 = Mid(strLigne, 385, 7) 'substraction
    t2 = Mid(strLigne, 395, 7) 'substraction
    t3 = Mid(strLigne, 382, 1) 'substraction
    t4 = Mid(strLigne, 392, 1) 'substraction
    t5 = Mid(strLigne, 47, 24) 'substraction
    t6 = Mid(strLigne, 15, 8)  'substraction
    t7 = Mid(strLigne, 23, 8)  'substraction
    
      
    Text1.Text=t1
    Text2.Text=t2
    Text3.Text=t3
    Text4.Text=t4
    Text5.Text=t5
    Text6.Text=t6
    Text7.Text=t7

        Loop
'fermeture de fichier
        Close #1

    End Sub

Option Explicit

'Création d'un type de variable structuré
Private Type monTableau
    t1 As String
    t2 As String
    t3 As String
    t4 As String
    t5 As String
    t6 As String
    t7 As String
End Type

'Déclaration d'un tableau avec la structure
Public monTab() As monTableau
Public ind as long     'Index du tableau monTab()

Sub LireFichierTxt(ByVal txtSrc As String)
Dim fp As Integer        'Pointeur du fichier
Dim strLigne As String   'Conteneur d'une ligne du fichier

     fp = Freefile     'Attribut le premier pointeur libre
     'Ouverture et lecture du fichier
     Open txtSrc For Input As #fp
     While Not EOF(fp) ' jusqu'à la fin du fichier
          Line Input #fp, strLigne
          'On alloue un élément au tableau monTab()
          Redim preserve monTab(ind)
          'On découpe la ligne pour remplir monTab()
          monTab(ind).t1 = Mid(strLigne, 385, 7)
          monTab(ind).t2 = Mid(strLigne, 395, 7)
          'etc ....
          ind = ind + 1
     Wend

    'fermeture du fichier
End Sub