bonjour,
Pour lire et enregistrer un fichier, tu places sur ta form, 2 commandButton (cmdLire et cmdEnregistrer) et 2 textbox (text1 et Text2), tu mets la propriété Multiligne de text2 à true.Dans Text1, tu mets le nom du fichier que tu veux ouvrir (par exemple MonFichier.txt où Mesdocuments\Monfichier.txt) le fichier s'ouvrira dans Text2 où tu pourras le modifier , le fichier modifié sera enregistrer lorsque tu cliques sur le bouton enregistrer.
Private Sub cmdLire_Click()
Dim NomChemin, NomFichier, NomRep, tout, texte, crlf
crlf = Chr(13) + Chr(10)
NomChemin = "C:\"
NomFichier = Text1
Open NomChemin + NomFichier For Input As #1
On Error Resume Next
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text2.Text = tout
Close #1
End Sub
Private Sub cmdEnregistrer_Click()
Dim NomChemin, NomFichier, NomRep
NomChemin = "C:\"
NomFichier = Text1
Open NomChemin + NomFichier For Output As #1
Print #1, Text2
Close #1
End Sub
jpleroisse