J'ai trouvé une procédure sur internet me permettant de remplacer mon caractère dans mon fichier et que j'ai adapté à mon cas. J'aimerais juste l'appliquer à une ligne du fichier texte par contre. Est-ce possible? Je ne vois pas trop comment faire maintenant pour cela et j'en appelle à votre aide, car c'est une partie du VBA que je ne maitrise pas encore vraiment.
Voici le code que j'ai:
Sub CommandButton1_Click()
Dim sBuf As String
Dim sTemp As String
Dim iFileNum As Integer
Dim sFileName As String
' Edit as needed
sFileName = "C:\...\CAPTURE51-Copie.txt"
iFileNum = FreeFile
Open sFileName For Input As iFileNum
Do Until EOF(iFileNum)
Line Input #iFileNum, sBuf
sTemp = sTemp & sBuf & vbCrLf
Loop
Close iFileNum
sTemp = Replace(sTemp, "", "")
'Save txt file as (if possible)
iFileNum = FreeFile
sFileName = "C:\...\CAPTURE51-Copie.txt"
Open sFileName For Output As iFileNum
Print #iFileNum, sTemp
Close iFileNum
End Sub
J'aimerais que le code s'applique uniquement sur une ligne précise (la 22e ligne en l'occurence) du fichier texte que je vous joins.
Je vous remercie d'avance et vous souhaite une bonne journée .