Comment utiliser l’instruction Line Input # dans VBA ?

En VBA (Visual Basic for Applications), l’instruction `Line Input #` est utilisée pour lire une ligne complète de texte à partir d’un fichier texte ouvert. C’est particulièrement utile lorsque vous travaillez avec des fichiers texte et que vous avez besoin de lire le contenu ligne par ligne. Voici comment vous pouvez utiliser cette instruction :

Ouvrir le fichier : Vous devez d’abord ouvrir le fichier en utilisant l’instruction `Open`. Le fichier doit être ouvert en mode `Input` pour la lecture.
Lire chaque ligne avec Line Input # : Utilisez `Line Input #` pour lire chaque ligne du fichier dans une variable de type `String`.
Boucler à travers le fichier : Généralement, vous utiliserez une boucle pour lire chaque ligne jusqu’à atteindre la fin du fichier.
Fermer le fichier : Une fois que vous avez terminé de lire le fichier, n’oubliez pas de le fermer en utilisant `Close`.

Voici un exemple de code VBA qui montre comment utiliser `Line Input #` :

Sub LireFichierTexte()
    Dim cheminFichier As String
    Dim numeroFichier As Integer
    Dim ligneTexte As String

    ' Assurez-vous de mettre à jour ce chemin de fichier avec le chemin correct de votre fichier texte
    cheminFichier = "C:pathtoyourfile.txt"
    
    ' Obtenir un numéro de fichier libre
    numeroFichier = FreeFile
    
    ' Ouvrir le fichier en mode lecture
    Open cheminFichier For Input As #numeroFichier
    
    ' Lire jusqu'à la fin du fichier
    Do While Not EOF(numeroFichier)
        ' Lire une ligne du fichier
        Line Input #numeroFichier, ligneTexte
        ' Afficher la ligne dans la fenêtre d'exécution (ou faire d'autres traitements)
        Debug.Print ligneTexte
    Loop
    
    ' Fermer le fichier
    Close #numeroFichier
End Sub

Points à noter :

Chemin du fichier : Assurez-vous que le chemin vers le fichier texte est correct. Si le chemin est incorrect, vous obtiendrez une erreur lorsque vous essayerez d’ouvrir le fichier.
`FreeFile` : Cette fonction renvoie le prochain numéro de fichier libre pouvant être utilisé pour ouvrir un fichier. Cela évite les conflits avec d’autres fichiers qui pourraient être ouverts.
EOF (End Of File) : Cette fonction est utilisée pour vérifier si vous avez atteint la fin du fichier afin de prévenir les erreurs de lecture au-delà de la fin du fichier.
`Debug.Print` : Utilisée ici pour afficher chaque ligne dans la fenêtre d’exécution. Vous pouvez remplacer cette commande par d’autres instructions pour traiter chaque ligne lue comme vous le souhaitez.

Ainsi, `Line Input #` est un moyen simple et efficace de lire des fichiers texte ligne par ligne dans VBA.

facebooklinkedin