Au clique d'un bouton enregistrer

Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
- - Dernière réponse : cs_Le Pivert
Messages postés
6361
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
- 1 nov. 2019 à 18:06
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
Afficher la suite 

2 réponses

Messages postés
6361
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
412
0
Merci
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
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
merci beaucoup en ce moment vous m'aidez vraiment
merci encore
Commenter la réponse de cs_Le Pivert
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
0
Merci
dans le bouton logout je dois juste mettre enregistrer sans sub end sub??
cs_Le Pivert
Messages postés
6361
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
412 -
Il faudrait quand même connaitre les bases du vba avant de se lancer dans un projet!

https://www.mediaforma.com/vba-excel-affecter-macro-a-bouton-de-commande/

@+ Le Pivert
aimara974
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
apres avoir sauvegarder j ai toujours lla MsgBox qui apparait et du coup j 'arrive plus a fermer
cs_Le Pivert
Messages postés
6361
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 novembre 2019
412 -
Voilà un exemple:

https://www.cjoint.com/c/IKbre0SvK2Q

dans cet exemple j'ai affecté la macro à une forme voir explication ici:

https://www.formuleexcel.com/comment-affecter-une-macro-vba-a-un-bouton-ou-une-image/

@+
Commenter la réponse de aimara974