Bonsoir Gaël, Seban, le Forum
Rapidos avant de filer... Uner petite macro qui te fera un TXT à la volée... Sans Guillement
Option Explicit
Sub BuildTXT()
Dim Range As Object, Line As Object
Dim StrTemp As String, Nom As String
Dim Rep As Variant
Dim L As Integer
Nom = ThisWorkbook.Path & '\\ReportData'
Rep = Application.GetSaveAsFilename(Nom, 'Fichier,*.txt')
If Rep = False Then Exit Sub
L = 1
With Sheets('Feuil1')
Set Range = .Range('C1:C' & .Range('A65536').End(xlUp).Row)
End With
Open Rep For Output As #1
For Each Line In Range.Rows
StrTemp = CStr(Cells(L, 3).Text)
L = L + 1
Print #1, StrTemp
Next
Close
Set Range = Nothing
End Sub
Bonne Soirée
@+Thierry