cs_CanisLupus
Messages postés3757Date d'inscriptionmardi 23 septembre 2003StatutMembreDernière intervention13 mars 200620 15 nov. 2004 à 19:52
Déjà vu, mais bon, pour la nième fois :
Private Sub Command1_Click()
Dim NumFic As Integer
Dim s As String
NumFic = FreeFile
Open "c:\temp\essai.txt" For Input As #NumFic
s = Input(LOF(NumFic), #NumFic)
Close
s = Replace(s, "toto", "truc")
Open "c:\temp\essai.txt" For Output As #NumFic
Print #NumFic, s
Close
End Sub