[Excel VBA] Récupérer l'adresse d'un fichier
glaine
Messages postés
33
Statut
Membre
-
glaine Messages postés 33 Statut Membre -
glaine Messages postés 33 Statut Membre -
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.
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 bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Liste déroulante excel - Guide
1 réponse
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
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
