Pb avec macro "enregistrer sous"

[RVL]

Bonjour à tous,

J'essaie depuis qql temps de faire une macro "enregistrer sous" un nom bien precis (ex: date contenue dans une cellule de mon fichier).
Mais je n'arrive même pas à réaliser la macro suivante (ex:nom=1234), j'ai tjs un message d'erreur ("microsoft office excel a rencontré un pb et doit être fermé....")

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="1234.xls"
Application.DisplayAlerts = True
End Sub

si quelqu'un peut m'expliquer

 

[soenda]

Re : Pb avec macro "enregistrer sous"

Bonjour le fil, RVL

J'ai testé le code dans la Sub Workbook_BeforeClose, et je n'ai pas eu de soucis.
Tu peux aussi ajouter un chemin pour ton fichier.

A plus

 

[MuscatMimi]

Re : Pb avec macro "enregistrer sous"

Bonsoir soenda et le forum

Une piste

Sub AfficheBoiteSaveAs()
Application.Dialogs(xlDialogSaveAs).Show ("Mon classeur")
End Sub

ouvre Enregistrer-sous avec le nom du classeur "Mon classeur"
reste a choisir le dossier de destination

Cordialement

 

[RVL]

Re : Pb avec macro "enregistrer sous"

Bonjour Christian,

J'essaie ta solution

Merci