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