FONCTION AJOUT OU SUPPRESSION DE LIGNE DANS UN FICHIER

'---------------------------------------------------------------------------
'Fonction Inserer une ligne de texte dans un fichier a la ligne de son choix
'---------------------------------------------------------------------------
Public Function Insere_FicTxt(Texte As String, Fichier As String, Optional Ligne As Integer = 1)
Dim VarFichier As String
Open Fichier For Input As #1
VarFichier = input(LOF(1), 1)
Close #1
'Si 1er ligne
If Ligne = 1 Then VarFichier = Texte & vbCrLf & VarFichier:  GoTo Ecrit
'Si Dans le fichier
Dim VarNr As Integer
For i = 1 To Len(VarFichier)
If Mid(VarFichier, i, 1) = Chr(13) And Mid(VarFichier, i + 1, 1) = Chr(10) Then VarNr = VarNr + 1
If VarNr = Ligne - 1 Then VarFichier = Mid(VarFichier, 1, i + 1) & Texte & CrLf & Mid(VarFichier, i, Len(VarFichier)): Exit For: GoTo Ecrit
Next i
'Si derniere ligne ou +
If VarNr < Ligne - 1 Then VarFichier = VarFichier & vbCrLf & Texte: MsgBox "ajout der"
Ecrit:
Open Fichier For Output As #1
Print #1, VarFichier
Close #1
End Function

'--------------------------------------------------------------
'Fonction Supprimer la ligne de son choix dans un fichier texte
'--------------------------------------------------------------
Public Function SupprLigne(NrLigne As Integer, Fichier As String)
Dim VarFichier As String
Dim VarNr As Integer
Dim Ligne As String
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
VarNr = VarNr + 1
If VarNr <> NrLigne Then VarFichier = VarFichier & Ligne & vbCrLf
Loop
Close #1
'ecriture du fichier
Open Fichier For Output As #1
Print #1, VarFichier
Close #1
End Function

'--------------------------------------------------------------
'Fonction Recherche et remplace le texte dans un fichier
'--------------------------------------------------------------
Public Function RemplaceTxt(Fichier As String, TxtSource As String, TxtDestination As String)
Dim Ligne As String
Dim Varfichier As String
Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Ligne
Ligne = Replace(Ligne, TxtSource, TxtDestination)
varfic = varfic & Ligne & vbCrLf
Loop
Close #1
'ecriture du fichier
Open Fichier For Output As #1
Print #1, Varfichier
Close #1
End Function