Accès aux fichiers-texte

En VBA, il est parfois nécessaire de pouvoir accéder à de simples fichiers-texte. Voici comment on procède pour lire et écrire dans un fichier texte. A vous de modifier le code selon vos besoins :

Sub FichierTexte()
  ' PARTIE 1 :
  ' Ouverture de tadaga.ini, et écriture de Abricot et banane
  ' Si le fichier n'existait pas, il est créé
  ' s'il existait et qu'il contenait des données, elles seront remplacées
  Open "d:\atelier\tagada.ini" For Output As #1
  Print #1, "Abricot"
  Print #1, "Banane"
  Close #1

  ' PARTIE 2 :
  ' Idem que la partie 1, si le fichier n'existe pas, il est créé, mais cette fois, s'il existe
  ' et qu'il y avait déjà des données dedans, les nouvelles seront rajoutées à la fin
  Open "d:\atelier\tagada.ini" For Append As #1
  Print #1, "Cacahuète"
  Print #1, "Melon"
  Close #1

  ' PARTIE 3 :
  ' Ouverture de Tagada.ini en lecture. S'il n'existe pas, une erreur est générée
  ' S'il existe, il est lu ligne par ligne :
  Open "d:\atelier\tagada.ini" For Input As #1
  While EOF(1) = False
    Line Input #1, LigneSuivante
    MsgBox LigneSuivante
  Wend
  Close #1
End Sub