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

Fermé

glaine Messages postés 29 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 23 février 2022 - Modifié par aquarelle le 14/11/2011 à 21:01
glaine Messages postés 29 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 23 février 2022 - 14 nov. 2011 à 17:44

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:

[Excel VBA] Récupérer l'adresse d'un fichier
Fichier rar - Guide
Darkino nouvelle adresse - Guide
Rechercher ou entrer l'adresse - Guide
Liste déroulante excel - Guide
Comment récupérer un compte facebook piraté - Guide

1 réponse

Réponse 1 / 1

glaine Messages postés 29 Date d'inscription mercredi 5 novembre 2008 Statut Membre Dernière intervention 23 février 2022 1
14 nov. 2011 à 17:44

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

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Discussions similaires

Newsletters