macro permettant d'enregistrer un classeur

noviceAG

XLDnaute Impliqué

• 17 Août 2010

• #2

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 ????

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Août 2010

• #3

Re : macro permettant d'enregistrer un classeur

Bonsoir zrab, et à ceux qui passeront par ici,

Tu peux créer un bouton avec:

Code:

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

 

Vote positif 0 Vote négatif

Z

zrab

XLDnaute Nouveau

• 17 Août 2010

• #4

Re : macro permettant d'enregistrer un classeur

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

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Août 2010

• #5

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

 

Dernière édition: 17 Août 2010

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Août 2010

• #6

Re : macro permettant d'enregistrer un classeur

Bonsoir à tous


A mettre dans ThisWorkbook

Code:

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

 

Dernière édition: 17 Août 2010

Vote positif 0 Vote négatif