Mesage avant la fermeture du fichier

  • Initiateur de la discussion Initiateur de la discussion oligui
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

oligui

XLDnaute Junior
Bonjour a tous

J'aimerai inclure dans mon programme une petit avis qui apparait lorsque l'on ferme fichier et qui nous amènent a l'onglet LIVRE BLEU (le dernier onglet). Le programme ne peut se fermer avant que cet onglet soit sélectionné ou visionné, a moin d être sur cet onglet en question.

Je ne sait pas si ca se fait, je tente ma chance
Je joint le fichier

Merci a l'avance

P.S. il comporte deja une macro pour déprotéger toutes les pages en même temps
MOT DE PASSE du fichier: georges5

oLi
 

Pièces jointes

Re : Mesage avant la fermeture du fichier

Bonjour,

Une piste, à mettre dans le module du classeur :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If ActiveSheet.Name = "Livre bleu" Then
    
        Cancel = False
    
    Else
    
        MsgBox "Vous devez renseigner le livre bleu !"
        Worksheets("Livre bleu").Activate
        Cancel = True
        
    End If
    
End Sub

Hervé.
 
Re : Mesage avant la fermeture du fichier

Bonjour,
Je pense que tu pourrais partir sur la base de ce code :

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil2").Select
End Sub
Bon courage et reviens au cas où.

Bonjour Hervé.
Je suis vraiment allé à l'essentiel mais je pense que tu as répondu à la question dans le détail. Bon week-end.
 
Re : Mesage avant la fermeture du fichier

Bonjour Hervé

Merci pour ta réponse rapide.
J'ai un petit problème....je ne sais pas ou inscrire ce code. De la la raison pourquoi j'ai attaché le fichier.
Aurais tu le temps svp d'inscrire ce code dans mon fichier.

Un gros merci

oLi
 
Re : Mesage avant la fermeture du fichier

Bonjour
Je modifirai la macro de Criscris11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
if activeSheets.name<>"livret bleu" then
msgbox("Vous n'avez pas consulté le livre bleu...")
Cancel = True
endif
End Sub
 
Re : Mesage avant la fermeture du fichier

Je pense savoir pourquoi ça bug : essayes plutôt ceci après avoir supprimer le premier code qui s'active à la fermeture présent dans ton fichier d'origine
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If activeSheets.name<>"livret bleu" then 
  msgbox("Vous n'avez pas consulté le livre bleu...")
  Cancel = True
End If
Call ProtectionToutesLesFeuillesMDP
End Sub
car tu ne peux pas avoir plusieurs codes sur Workbook_BeforeClose.

Eh bien François, je crois qu'on est sur la même longueur d'ondes...
 
Dernière édition:
Re : Mesage avant la fermeture du fichier

Salut Crscris11 Oui je penses qu'on a bien travaillé...lol...

Attention! "If activeSheets.name<>"livret bleu" then" c'est Livre Bleu respecte bien les majuscules le nom doit être identique au nom de la feuille concernée sinon tu pourra plus quitter ton programme...lol...

A+ François
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour