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 
 ...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 18.3 Copier, déplacer et supprimer les fichiers
Suivant
Corrigé 18.5 Créer et utiliser un dictionnaire