Réponse acceptée !
'Lut
Me voici l'âme charitable volant à ton secours 
36 est la valeur de xlTextPrinter (format .prn)
8<-----------------------------------------------------------------------
dim x
dim w
set x = CreateObject("Excel.Application")
set w = x.Workbooks.Open("C:\TonFichier.xls")
w.SaveAs "C:\TonFichier.prn", 36,,,, False
w.Close False
x.Quit
set x = nothing
set w = nothing
----------------------------------------------------------------------->8