Recup nom de fichier dans une macro

[nicordi]

Salut à tous

mon besoin va peut etre vous paraitre simple mais je bloque.

j'ai une macro qui met en forme un fichier de base en .TXT et je souhaiterait l'enregistrer en XLS tout en gardant le même nom.

Donc deux questions :

- Comment faire pour recuperer le nom du fichier
- Comment l'enregistrer en XLS

Mon morceau de code est

nom = ActiveWorkbook.Name
    ActiveWorkbook.SaveAs Filename:=nom, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

Merci bcp pour votre aide

 

[gfortin9]

Re : Recup nom de fichier dans une macro

Allô!

J'utilise ce code pour enregistrer une copie de sécurité dans un autre endroit.

Sub Sauve_Fichiers()

Dim NomFichier As String, Chemin1 As String, Unite1 As String

Unite1 = CurDir()
Chemin1 = ActiveWorkbook.Path
NomFichier = ActiveWorkbook.Name
ChDrive "D"
ChDir "D:\Mesdocuments\Documents\--excel\Secur\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
ChDrive Unite1
ChDir Chemin1
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

Ce que je vois dans ton bout de code, c'est qu'il ne contient pas de chemin.
Excel ne peut enregistrer, il ne sait pas où.

J'espère que tu sauras apdapter à ton besoin.

Gfortin

 

[nicordi]

Re : Recup nom de fichier dans une macro

RE,

Pourrais-tu me dire ou utilises-tu la varaible CHDIR dans ton exemple.

Car la jke ne vois pas ou tu mets le repertoire dans ta sauvegarde.

Merci pour ton aide.

@+

 

[nicordi]

Re : Recup nom de fichier dans une macro

RE,

Merci de ta reponse, pourrais-tu me dire ou tu utilises ta variable ChDir

De plus mon soucis est aussi d'enregistrer un fichier (à la base .TXT) en fichier EXCEL (donc .XLS).

Merci de ton aide.

 

[nicordi]

Re : Recup nom de fichier dans une macro

Personne pour m'aider??

Pour info la difficulté ici est surtout le passage de TXT vers XLS.

EN gros il me faudrait un TRUC du Genre nomfic&".XLS"

Merci