Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

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