Une histoire de nom de fichier...

[adi399]

Bonjour ou rebonjour le forum 🙂

juste une petit question, j'ai un code ci-dessous qui me permet d'enregistrer un fichier d'un dossier à un autre toute en supprimant son emplacement initial. c'est une sorte de transfert.

Mon problème et que j'aimerai déployer ce code à d'autres fichiers et que je n'arrive pas à trouver la fonction qui ira cherché le nom du fichier actuel sans avoir à chaque fois à taper le nom du fichier dans le code. j'ai mis en gras où je pense que le problème se trouve.

Merci 🙂

Private Sub CommandButton1_Click()
Dim f As String
f = ActiveWorkbook.FullName
ChDir _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1"
ActiveWorkbook.SaveAs Filename:= _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1\Nomdufichier.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill f
Application.Quit
End Sub

 

[adi399]

Re : Une histoire de nom de fichier...

en fait je ne sais plus trop où le problème se trouve :s ^^

 

[Pierrot93]

Re : Une histoire de nom de fichier...

Bonjour,

euh... Nous non plus.... que cherches-tu à faire exactement ? et selon quel(s) critère(s) ??

Bon après midi
@+

 

[kjin]

Re : Une histoire de nom de fichier...

Bonjour, salut Pierrot 🙂,
Gag !
Attention, fais une copie du fichier au cas où !
Peut-être comme ceci

Private Sub CommandButton1_Click()
Dim rep$, nomf$, pathf
rep = "S:\METHODES\16 - projet\Dossiers des resp\dossier1\"
nomf = ActiveWorkbook.Name
pathf = ActiveWorkbook.FullName
ActiveWorkbook.SaveAs rep & nomf
Kill pathf 'attention irreversible
Application.Quit
End Sub

A+
kjin

 

[adi399]

Re : Une histoire de nom de fichier...

J'ai un code qui me permet de transferer un fichier d'un dossier à un autre.

Ce code fonctionne parfaitement avec mon fichier ou j'ai créer la macro : classeur1

Private Sub CommandButton1_Click()
Dim f As String
f = ActiveWorkbook.FullName
ChDir _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1"
ActiveWorkbook.SaveAs Filename:= _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1\classeur1.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill f
Application.Quit
End Sub

J'aimerai faire un copier coller du code dans un autre fichier qui s'appel classeur2.

voila mon problème:
lorsque j'active la macro dans le classeur 2, elle me le transfert en le nommant classeur 1.
Je souhaiterai trouver une solution pour éviter cela et qu'elle le nomme classeur 1 quand je l'active dans le classeur 1 et classeur 2 quand je l'active dans le classeur 2


Vous avez compris???? dur dur de me faire comprendre^^

 

[Pierrot93]

Re : Une histoire de nom de fichier...

Re, bonjour Kjin🙂

euh... oui... remplace par "ActiveWorkbook.Name"... pour enregistrement dans autre sous-dossier...

 

[adi399]

Re : Une histoire de nom de fichier...

Private Sub CommandButton1_Click()
Dim f As String
f = ActiveWorkbook.FullName
ChDir _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1"
ActiveWorkbook.SaveAs Filename:= _
"S:\METHODES\16 - projet\Dossiers des resp\dossier1\Nomdufichier.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill f
Application.Quit
End Sub


Je ne trouve pas ou le mettre, je l'ai mis à la place de nomdufichier dans mon code. Alors lorsque j'active la macro, elle me nomme le fichier activeworkbook.name dans mon dossier... 🙁 galère!!

 

[Pierrot93]

Re : Une histoire de nom de fichier...

Re,

modifie peut être comme suit :

ActiveWorkbook.SaveAs Filename:= _
    "S:\METHODES\16 - projet\Dossiers des resp\dossier1\" & ActiveWorkbook.Name _
        , FileFormat:=xlNormal

 

[kjin]

Re : Une histoire de nom de fichier...

Re,
J'en déduit donc que tu n'as pas testé ce que je t'ai proposé !
A+
kjin