Merci pour ta réponse the_down, j'ai déjà fait le tour de tous les forum concernant le remplacement de lignes dans un fichiers text mais je n'arrive pas à faire ce que je voudrai avec.
Ce que je n'arrive pas à faire c'est cherche ma variable (001-....) dans le fichier texte, la supprimer et écrire le nouveau texte de ma textbox à l'endroit ou l'ancien texte était) Voici le code que j'ai :
Private Sub Label2_Click()
Dim i As Integer
Dim TextLine As String
Dim stDeb As String
Dim stFin As String
Dim bTrouve As Boolean 'Flag Début département trouvé
Dim f As Integer
Dim chaine As String
Textbox1.Text = "" 'Vide text box...
Pattern = "001"
Pattern1 = "002"
stDeb = Format(i, Pattern & "-") ' Formate numero appart 01-
stFin = Format(i, Pattern1 & "-")
f = FreeFile
If pos > 0 Then
End If
Open "c:\test.txt" For Input As #f ' Ouvre le fichier.
Do While Not EOF(f) ' Effectue la boucle jusqu'à la fin du fichier.
Input #f, TextLine ' Lit la ligne dans la variable.
If Not bTrouve Then
If Left(TextLine, 4) = stDeb Then
Textbox1.Text = Mid(TextLine, 5)
bTrouve = True
End If
Else
If Left(TextLine, 4) <> stFin Then
Textbox1.Text = Textbox1.Text & vbCrLf & TextLine 'Rajoute ligne
Else
Close #f
Exit Do 'Sort de la boucle while
End If
End If
Loop
chaine = Label1.Tag & "-" & Textbox1.Text
MsgBox (chaine)
Close #f ' Ferme le fichier.
End Sub
Le texte qui apparait dans la msgbox est la variable que je dois rechercher et supprimer dans le fichier texte pour que je puisse mettre le nouveau texte inscrit dans la textbox.
Par avance merci !!