enregistrer sous .... PB

[gds35]

Bjr a tous les amis du forum , et merci de vos précieuses réponses auxquelles je n'ai pu repondre .
J'ai crée un prg en vba et j'ai un bouton qui m'affiche la boite de dialogue " ENREGISTRER SOUS" jusque la ss Pb , mais le soucis est que le nom demande est celui du dernier classeur exécuté , or je voudrais que cette zone soit a blanc pour obliger l'entree d'un nom de sauvegarde , car le dernier classeur executé doit toujours resté vierge. MERCI de votre aide GDS35

 

[Staple1600]

Re : enregistrer sous .... PB

Bonsoir


Peut-on voir ton code VBA actuel, stp ?

 

[Paritec]

Re : enregistrer sous .... PB

Bonjour Staple Gds35 le forum,
Voilà qui devrait t'aider
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlSaveChanges).Show
End Sub
bon week-end
Papou

 

[Paritec]

Re : enregistrer sous .... PB

Re Staple Gds35 le forum,
Excusez, j'ai fait une erreur en copiant
voilà qui devrait t'aider

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show Clear
End Sub

 

[gds35]

Re : enregistrer sous .... PB

Bonjour le forum , et Merci a Paritec et Staple Bon dimanche cordialement GDS35