Sub TEST_001()
'
' TEST_001 Macro
' Macro recorded 27.09.2010 by Amilien
'
'
Classeur = Application.GetOpenFilename("Classeurs Excel,*.html")
If Classeur = False Then Exit Sub
Workbooks.Open Filename:=Classeur
ActiveWorkbook.SaveAs Filename:= _
"C:\_U1\PROGRAMME\NI_8.5\PROGRAMME_LV85\Report\[COLOR="Red"]" & Classeur & "[/COLOR].txt", _
FileFormat:=xlText, CreateBackup:=False
End Sub