Hello le forum
Un petit script fait l'affaire :
Sub ExportCellInTxt()
Dim fso As Object, fl As Object
Set fso = CreateObject('scripting.filesystemobject')
Set fl = fso.opentextfile('C:\\output.txt', 8, -1, -2)
fl.writeline Range('A1').Value
fl.Close
Set fso = Nothing: Set fl = Nothing
End Sub
++