au clique d'un bouton enregistrer

Question

Bonjour, 
 je souhaiterais avoir un code vba pour que lors d'un clique sur mon bouton logout ,l'enregistrement du classeur excel se fait automatiquement.
je souhaiterais savoir aussi comment forcer le user a cliquer sur le bouton logout avant la fermeture du du classeur excel.

Merci

Configuration: Windows / Chrome 78.0.3904.70

cs_Le Pivert · Answer

Bonjour,

A mettre dans ThisWorkbook:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If autoriser = True Then Exit Sub
Cancel = Not bye
MsgBox "Vous devez enregistrer!", vbInformation, "Fermeture"
End Sub
 

Insérer un module et mettre ce code:

Option Explicit
Public bye As Boolean
Public autoriser As Boolean
Sub quitter()
bye = True
ThisWorkbook.Close
End Sub
Sub enregistrer()
Dim Fichier As Variant
 Fichier = Application.GetSaveAsFilename(Fichier, "Fichiers Excel (*.xlsm), *.xlsm")
    ActiveWorkbook.SaveAs Fichier
 Application.DisplayAlerts = False
autoriser = True
Application.Quit
End Sub
 



mettre dans le bouton logout:

enregistrer

voilà

aimara974 · Answer

dans le bouton logout je dois juste mettre enregistrer sans sub end sub??

Au clique d'un bouton enregistrer

2 réponses

Discussions similaires

Newsletters