Récupérer le nom d'un fichier

[glaine]

Bonjour à tous,
Pour commencer merci d'avance pour toutes aides apportées.
J'ai écris une macro à partir d'excel qui enregistre un fichier rtf en txt.
Je voudrais alors récupérer l'adresse de ce fichier pour l'ouvrir après dans excel et c'est là que le bas blesse. Je ne vois pas trop comment faire.
Amicalement

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

 

[glaine]

Récupérer un fichier txt

J'ai progressé un peu et améliorer les choses:

Sub convertisseur()
Dim wdapp As Object
Dim titre As String
Dim nomfi As String
Dim chemfi As String
Dim fichier As String

Set wdapp = CreateObject("word.application")
wdapp.documents.Open Filename:="C:\\Documents and Settings\\truc\\Bureau\\essai.rtf"
wdapp.Visible = False

    titre = InputBox("veuillez entrer un titre")
               If titre = "" Then
               Exit Sub
               End If
    wdapp.activedocument.SaveAs Filename:=titre, FileFormat:=wdFormatText
    nomfi = wdapp.activedocument.Name
    MsgBox nomfi
    chemfi = wdapp.activedocument.Path
    MsgBox chemfi
    fichier = chemfi + "\" + nomfi
    MsgBox fichier
    wdapp.Application.Quit

Set wdapp = Nothing
Workbooks.OpenText Filename:=fichier

End Sub

Il me reste un problème. J'ai constamment le message d'errreur comme quoi le fichier n'est pas d'un format valide.
Je me posais aussi la question de savoir comment orienter fileformat en txt(wdFormatText retourne un docx).
Merci en tous cas à tous ceux qui pourraient m'apporter un peu d'aide.
Amicalement