Mesage avant la fermeture du fichier

[oligui]

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

 

[Theze]

Re : Mesage avant la fermeture du fichier

Bonjour,

Une piste, à mettre dans le module du classeur :

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é.

 

[criscris11]

Re : Mesage avant la fermeture du fichier

Bonjour,
Je pense que tu pourrais partir sur la base de ce 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.

 

[oligui]

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

 

[criscris11]

Re : Mesage avant la fermeture du fichier

Re,
Hervé n'étant pas connecté, je me permet de te répondre : le code donné par Hervé est à coller dans ThisWorbook.
Bon après-midi.

 

[oligui]

Re : Mesage avant la fermeture du fichier

J'ai bousiller mon fichier...............

a l'aide

oLi

 

[criscris11]

Re : Mesage avant la fermeture du fichier

C'est à dire ? A cause du code ? Cela me semble improbable mais bon...

 

[fanfan38]

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

 

[oligui]

Re : Mesage avant la fermeture du fichier

je ne crois l avoir mis a bonne place..

snif snif

 

[criscris11]

Re : Mesage avant la fermeture du fichier

Pourrais tu être plus précis ?

 

[oligui]

Re : Mesage avant la fermeture du fichier

Bonjour,

Peut tu svp me l'inserer dans le fichier etant que je suis incapable.

Merci

oLi

 

[oligui]

Re : Mesage avant la fermeture du fichier

J'avais déja une macro et celle ci ne fonctionne plus correctement et même si je ouvre un nouveau fichier intouché il y a un bug.

Merci

oLi

 

[fanfan38]

Re : Mesage avant la fermeture du fichier

Re, Ci joint le fichier modifié

A+ François

 

[criscris11]

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

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...

 

[fanfan38]

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