Au clique d'un bouton enregistrer [Fermé]

Signaler
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019
-
Messages postés
7071
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 novembre 2020
-
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

2 réponses

Messages postés
7071
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 novembre 2020
577
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à
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
Messages postés
17
Date d'inscription
dimanche 27 octobre 2019
Statut
Membre
Dernière intervention
1 novembre 2019

dans le bouton logout je dois juste mettre enregistrer sans sub end sub??
Messages postés
7071
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 novembre 2020
577
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
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
Messages postés
7071
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 novembre 2020
577
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/

@+