XL 2016 Gestion fichier texte

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tontonexcel

XLDnaute Occasionnel
Bonsoir à tous

A force de recherche j'ai trouvé la gestion d'un programme pour gérer un fichier txt à partir d'une certaine position en lecture et j'aimerais simplement savoir si ce programme vous parait optimisé notamment pour la deuxième boucle Do

VB:
Sub fso_lire_donnees_txt()

' Lire les données à partir du mot "Calcul"

Dim fso As FileSystemObject
Dim fichier_txt As TextStream

On Error GoTo gestion_erreur

Set fso = New FileSystemObject

' Ouverture du fichier répertoire fichier Excel en mode lecture
Set fichier_txt = fso.OpenTextFile(ThisWorkbook.Path & "\export.txt", ForReading)
    
    ' Boucle tant que fin du fichier non atteint
    Do While Not fichier_txt.AtEndOfStream
    
    ' Si ligne lue = mot "Calcul"' 
    If fichier_txt.ReadLine = "Calcul" Then
        
       ' Boucle jusqu'à fin de fichier
        Do While Not fichier_txt.AtEndOfStream
        
       ' Traitement
        MsgBox fichier_txt.ReadLine

        Loop
    End If
    
    Loop

fichier_txt.Close

Set fichier_txt = Nothing
Set fso = Nothing

Exit Sub

gestion_erreur:

MsgBox ("Le fichier n'existe pas"), vbCritical
End Sub
Merci beaucoup pour vos remarques
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
785
Retour