[Excel VBA] Récupérer l'adresse d'un fichier

glaine Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
glaine Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

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. 
Sub convertisseur() 
Dim wdapp As Object 
Dim titre As String 

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

    titre = InputBox("veuillez entrer un titre") 
    If titre = "" Then Exit Sub 
    wdapp.activedocument.SaveAs Filename:=titre, FileFormat:= _ 
        wdFormatText 
     t = wdapp.activedocument.Path 
     MsgBox t 
     wdapp.activedocument.Close 

Set wdapp = Nothing 
Workbooks.OpenText Filename:=t 

End Sub
A voir également:

1 réponse

Réponse 1 / 1
glaine Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   1
 
J'ai progressé un peu et améliorer les choses:

Code :
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 SubIl 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
0