Sub ExportFile()
Chemin$ = ThisWorkbook.Path: Fichier$ = "predads.txt"
CheminFichier$ = Chemin$ & "\" & Fichier$
With Sheets("ETABLISSEMENT").UsedRange: NoDernLig& = .Cells(.Rows.Count, .Columns.Count).Row: End With
With Sheets("ETABLISSEMENT")
Open CheminFichier$ For Output As #1
For L& = 1 To NoDernLig&
V$ = .Cells(L&, 1) & "," & "'" & .Cells(L&, 2) & "'"
Print #1, V$
'Print #1, Right(V$, Len(V$) - 1) ' voir si comme ceci est utile !? sinon , V$ ça suffit !
Next
End With
Close #1
End Sub