Médiaforma

VBA Excel – Lecture d’un fichier texte

Print Friendly, PDF & Email

Dans cet article, vous allez apprendre à accéder à un fichier texte en lecture. Ici, nous allons lire le contenu du fichier texte sauvegarde.txt, qui a été défini dans l’article “Sauvegarde dans un fichier texte”. Voici le contenu du fichier sauvegarde.txt :

es cinq lignes du fichier sauvegarde.txt seront copiées dans les cellules B1 à B5 pour obtenir ce résultat :

Voici le code utilisé :

Sub Macro1()

    On Error GoTo Erreur

    Dim Chaine As String

    Dim Fichier As String

    Dim UneLigne As String

    Dim i As Integer

    Fichier = "c:\data\sauvegarde.txt"

    Dim f As Integer

    f = FreeFile

    Open Fichier For Input As #f

    i = 0

    While Not EOF(f)

      i = i + 1

      Line Input #f, UneLigne

      UneLigne = UneLigne & " dans la cellule B" & i

      Cells(i, 2) = UneLigne

    Wend

    Close #f

    Exit Sub

Erreur:

    MsgBox "Le fichier de sortie est inaccessible"

End Sub

Il n’y a rien de compliqué dans ce code.

Une boucle While Wend parcourt le fichier sauvegarde.txt. La boucle prend fin lorsque tout le fichier a été parcouru :

While Not EOF(f)

  ...

Wend

Les lignes du fichier texte sont lues une par une avec une instruction Line Input :

Line Input #f, UneLigne

Le texte lu est complété :

UneLigne = UneLigne & " dans la cellule B" & i

Puis stocké dans la cellule i,2 :

Cells(i, 2) = UneLigne
Vous avez aimé cet article ? Partagez-le avec vos réseaux...
 
Comments

No comments yet.