Corrigé 18.4 Créer et utiliser un fichier texte

Sub AnalyseINI() 
   Dim fso As Scripting.FileSystemObject 
   Dim txtINI As Scripting.TextStream 
   Dim strLigne As String 
   Dim strSection As String 
   Dim strParamètre As String 
   Dim strValeur As String 
   Dim strParamValeur() As String 
   Dim intLigneExcel As Integer 
    
   Set fso = New Scripting.FileSystemObject 
   Set txtINI = fso.OpenTextFile(Filename:=ThisWorkbook.Path & 
"\Ressources\EnglishBIS.ini", IOMode:=ForReading) 
   intLigneExcel = 2 
   ' Lecture séquentielle des lignes 
   Do While Not txtINI.AtEndOfStream 
 ...