Sub convertisseur()
Dim wdapp As Object
Dim titre As String
Set wdapp = CreateObject("word.application")
wdapp.documents.Open Filename:="C:\\Documents and Settings\\machin\\Bureau\\essai.rtf"
wdapp.Visible = False
titre = InputBox("veuillez entrer un titre")
If titre = "" Then Exit Sub
wdapp.ActiveDocument.SaveAs Filename:=titre, FileFormat:= _
wdFormatText
wdapp.ActiveDocument.Close
Set wdapp = Nothing
Workbooks.OpenText Filename:=titre
End Sub