macro permettant d'enregistrer un classeur

[zrab]

salut à tous,

j'aimerais savoir comment créer une macro qui puisse me permettre d'enregistrer un classeur.
plus précisément lorsque je clique sur un bouton "ENREGISTRER", l'onglet "enregistrer sous" devrait s'ouvrir pour permettre la copie du classeur sous un nom choisi.

Merci.

 

[noviceAG]

Re : macro permettant d'enregistrer un classeur

Bonsoir zrab, le Forum,
Il me semble qu'en cliquant sur Fichier, Enregistrer sous,
tu as ce que tu demande non ????

 

[YANN-56]

Re : macro permettant d'enregistrer un classeur

Bonsoir zrab, et à ceux qui passeront par ici,

Tu peux créer un bouton avec:

Private Sub CommandButton1_Click()

With ActiveWorkbook
.SaveAs Filename:="C:\Documents and Settings\xxxxx\xxxxx\" & ActiveSheet.Cells(1, 1).Value
.Save: .Close
End With

End Sub

Le chemin et le nom du Classeur restent évidemment à adapter selon tes besoins.
Ici le nom est écrit dans la cellule A1

Amicalement.

Yann

 

[zrab]

Re : macro permettant d'enregistrer un classeur

salut,
@ noviceAG: c'est juste pour que ma petite application excel ressemble à un "logiciel"

 

[YANN-56]

Re : macro permettant d'enregistrer un classeur

Bonsoir zrab,

Trois points:

1) - As-tu regardé ce que je t'ai proposé?

2) - Une application ne sera jamais un logiciel!
De vouloir y ressembler est semble-t-il un peu prématuré...

3) – Dans tout apprentissage, comme il en est pour VBA ; entrer par la porte de derrière;
c'est généralement la certitude de se retrouver dans la cour où il y a les poubelles.

Amicalement, et en toute modestie...
Il est préférable d'être que de paraître!

Yann

 

[Staple1600]

Re : macro permettant d'enregistrer un classeur

Bonsoir à tous


A mettre dans ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Nom_SAUVE$, Chemin$
Chemin = "c:\temp\" [COLOR=Green]'créer ce dossier s'il n'existe pas (ou adapter chemin)[/COLOR]
Nom_SAUVE = InputBox("Nom de de la copie?", "Sauvegarde", "Copie du " & Format(Date, "dd-mm-yy"))
Me.SaveCopyAs Chemin & Nom_SAUVE & ".xls"
End Sub

Ensuite pour tester, faire Fichier/Enregistrer


PS: code testé avant publication, donc fonctionnel