Sub SpyOnTxt() '<<<à lancer depuis ThisWorkBook 'Private Sub Workbook_BeforeClose(Cancel As Boolean)'
Dim ThePath As String
Dim Counter As Long
Dim ValB6 As String, ValC6 As String
Dim Record As String
Dim Container As Variant
ThePath = 'C:\TheSpy.txt'
With Sheets('Feuil1')
ValB6 = .Range('B6')
ValC6 = .Range('C6')
End With
On Error GoTo GenerateTXTFirstTime
Open ThePath For Input As #1
On Error GoTo 0
Do While Not EOF(1)
Line Input #1, Record
Loop
Container = Split(Record, Chr(9))
Counter = Container(0) + 1
Close #1
Open ThePath For Append As #1
Print #1, Counter & Chr(9) & ValB6 & Chr(9) & ValC6
Close #1
Exit Sub
GenerateTXTFirstTime:
Counter = 1
Open ThePath For Output As #1
Print #1, Counter & Chr(9) & ValB6 & Chr(9) & ValC6
Close #1
End Sub