Un bouton pour enregistrer un fichier avec un nom predefini ?

[assniok]

bonjour a tous,

sur mon classeur excel, j'ai un userform contenant un bouton pour faire une sauvegarde du fichier.

j'ai mis ce code :

Private Sub CommandButton2_Click()
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("A2").Value)
End Sub

car je voulais que mon fichier une fois enregistré soit nommé avec le contenu de la cellule A2 (+ la date)...

bon, deja juste avec le contenu de la cellule ça ne fonctionne pas...

vous avez une idée pourquoi cela ne fonctionne pas ?

merci d'avance et @+

 

[Guest]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

re bonjour Assniok;

Si A2 contient une date, il faut la formater(sans /) pour éviter les caractères non autorisés dans les noms de fichier. Par exemple

Format(ThisWorkbook.ActiveSheet.Range("A2"),"yyyymmdd") & ".xls"

A+

 

[Pierrot93]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

Bonjour asniok, Hasco

d'après ce que j'ai compris, une autre solution comme ceci :

ActiveWorkbook.SaveAs Range("A2").Value & Format(Date, "dd mm yyyy") & ".xls"

bon après midi
@+

 

[assniok]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

oui Pierrot93, tu as tout a fait compris ma requete 😉

en fait mon but initial est d'enregistrer mon fichier sour la forme nom de la cellue A2 + la date (le contenu de la cellule A2 est du type 1234)...

dans la foulée, est il possible de fermer le fichier qui vient d'etre sauvegardé ?

j'ai tenté ça :

Private Sub CommandButton2_Click()
ActiveWorkbook.saveas Range("A2").Value & Format(Date, "dd mm yyyy") & ".xls"
ActiveWorkbook.Close
UserForm4.Hide
End Sub

cependant, il me demande qd meme si je veux enregistrer les modfications or qu'il n'y en a pas eu...

encore merci pour votre aide 😉

 

[Pierrot93]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

Re

essaies comme suit :

ActiveWorkbook.SaveAs Range("A2").Value & Format(Date, "dd mm yyyy") & ".xls"
Unload UserForm4
ActiveWorkbook.Close False

@+

 

[assniok]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

parfait, ça marche impec 😉

par contre je viens de me rendre compte d'une omission de ma part car je voulais conserver la boite de dialogue permettant de choisir l'emplacement de l'enregistrement ?

 

[Pierrot93]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

Re

avec la boite de dialogue :

Application.Dialogs(xlDialogSaveAs).Show Range("A2").Value & Format(Date, "dd mm yyyy") & ".xls"
Unload UserForm4
ActiveWorkbook.Close False

@+

 

[assniok]

Re : Un bouton pour enregistrer un fichier avec un nom predefini ?

merci c'est parfait 😉