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
