y a déjà surement un code sur le site mais v'la toujours celui-la
rien de tres compliquer la dedans
Source / Exemple :
Option Explicit
Public fso As New FileSystemObject
Dim Noel As String
Private Sub cmdlire_Click()
Dim strm As TextStream
txtaffichage.Text = ""
Set strm = fso.OpenTextFile(Noel)
With strm
Do
txtaffichage.Text = txtaffichage.Text & .ReadLine & vbCrLf
Loop Until .AtEndOfStream
.Close
End With
End Sub
Private Sub cmdquitter_Click()
'efface le fichier avant de quitter le programme
fso.DeleteFile Noel
Unload Me
End Sub
Private Sub Form_Load()
Dim strm As TextStream
With fso
Noel = .BuildPath(.GetSpecialFolder(TemporaryFolder), "Text.txt")
Set strm = .CreateTextFile(Noel, False)
End With
lblnomfichier.Caption = "Fichier : " & Noel
With strm
.Write "Ceci est un test. "
.WriteLine "Voici une fin de ligne..."
.WriteLine "suivie de 2 lignes vides :"
.WriteBlankLines 2
.WriteLine "Fin du fichier"
.Close
End With
End Sub
Conclusion :
+++Viva Canabissa+++
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.