Bonjour,
Tu places sur ta Form un TextBox (propriété Multiligne à True) et 2 CommandButton (cmdOuvrir et cmdEnregistrer). Pour créer le fichier texte, tu places d'abords des données dans le TextBox, ensuite tu cliques sur cmdEnregistrer, tu peux alors lire les données avec ouvrir, modifier et enregistrer de nouveau selon ton choix.
Private Sub cmdEnregistrer_Click()
If Text1.Text = "" Then
MsgBox "Il n'y a rien à enregistrer"
cmdEnregistrer.Enabled = False
Else
cmdEnregistrer.Enabled = True
Open "C:\MonFichier.txt" For Output As #1
Print #1, Text1.Text
Close #1
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdOuvrir_Click()
Dim fs, f
Dim texte
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\MonFichier.txt", 1, False, 0)
texte = f.Readall
f.Close
Text1.Text = texte
If Text1.Text <> "" Then
cmdEnregistrer.Enabled = True
End If
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
|