Discussion :

[jpma75]

Bonjour à tous,

Je pensais ajouter vbApplicationModal à mon Msgbox (cf. code qui suit) afin que la feuille n'affiche rien d'autre que ce message et ce jusqu'à ce qu'il soit validé. Ça ne fonctionne pas et mes recherches ne m'ont guère éclairé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Private Sub Workbook_Open()
 
    If Workbooks.Count > 1 Then
        MsgBox "Il est préférable de fermer tous les classeurs Excel ouverts sur votre bureau avant d'ouvrir celui-ci !", vbExclamation + vbApplicationModal
        ThisWorkbook.Close True
    End If

En vous remerciant par avance pour votre aide,
Cordialement,
jp

[jpma75]

PS : je crois que je confonds "(ne pas pouvoir) continuer de travailler dans l'application actuelle" avec "(ne pas afficher) autre chose que le Msgbox".
Je pressens que vbApplicationModal risque de ne pas répondre à mes besoins de limiter l'affichage de la feuille...

[joe.levrai]

Bonjour,

tu pourrais ajouter une feuille vide (sans quadrillage pour avoir une feuille toute blanche) qui est affichée lors du message.

A la validation du message, on revient sur la feuille qui était initialement affichée

[jpma75]

Bonjour et merci pour cette proposition,

J'ai fait en sorte qu'une page blanche s'affiche s'il y a plus d'un classeur ouvert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Workbooks.Count > 1 Then
    Sheets("page_blanche").Select
        MsgBox "Il est préférable de fermer tous les classeurs Excel ouverts sur votre bureau avant d'ouvrir celui-ci !", vbApplicationModal
        ThisWorkbook.Close True
    End If

... le problème est qu'à l'ouverture du classeur, il y a le message "avertissement de sécurité / les macros ont été désactivées" (*) et tant que l'utilisateur n'a pas cliqué sur "activer le contenu" le code de renvoi vers ladite feuille ne s'exécute évidemment pas ! Et donc je reviens au point de départ.

Cdt

(*) message qui s'affiche à chaque nouvelle version dudit classeur.

[Pierre Fauconnier]

Salut.

On ne sait pas outrepasser cette demande d'activation des macros par code, forcément. Sinon, elle ne servirait évidemment à rien puisque le créateur d'un petit virus ferait sauter la protection.

Cela dit, normalement, l'utilisateur a la possibilité de définir le fichier comme ok, de sorte que l'activation ne lui est plus demandée par la suite. Evidemment, il devra valider à nouveau le fichier lors d'une mise à jour.

Perso, je m'arrangerais pour que le fichier soit sur la feuille blanche au moment de sa fermeture en utilisant l'évènement de classeur BeforeClose, de sorte qu'à l'ouverture suivante, le classeur soit sur la bonne feuille, même en attente d'activation de la macro.

Ce problème montre les limites d'Excel qui n'est pas un outil de création d'application fermée et qui amène à construire l'usine à gaz lorsqu'on le détourne de son utilisation initiale


Au passage, un MsgBox est toujours modal, de sorte que je ne vois pas l'intérêt du vbApplicationModal, qui vaut 0 => le mettre revient exactement au même que de ne pas le mettre. si tu veux que le message soit toujours à l'avant-plan de ton écran, tu peux utiliser vbSystemModal, mais perso, ça me les briserait menu menu qu'on décide de ce que je dois avoir à l'avant-plan de mon écran.

[jpma75]

Bonjour Pierre,

Merci et désolé pour cette réponse tardive...

(...) Sinon, elle ne servirait évidemment à rien puisque le créateur d'un petit virus ferait sauter la protection.

Bien sûr !

(...) l'utilisateur a la possibilité de définir le fichier comme ok, de sorte que l'activation ne lui est plus demandée par la suite. Evidemment, il devra valider à nouveau le fichier lors d'une mise à jour.

Oui, j'ai déjà fait cette expérience et j'avais bien noté qu'il n'y avait pas grand chose à faire.

Perso, je m'arrangerais pour que le fichier soit sur la feuille blanche (...)

Effectivement. C'est d'ailleurs ce que je fais quand je veux "imposer" l'activation des macros : A la fermeture du classeur, je mets toutes les feuilles en veryHidden, SAUF une page d'accueil qui indique à l'utilisateur qu'il doit activer les macros (sinon, les fonctionnalités du classeur sont inopérantes...)

Ce problème montre les limites d'Excel qui n'est pas un outil de création d'application fermée et qui amène à construire l'usine à gaz lorsqu'on le détourne de son utilisation initiale

Ben oui, mais fait-on une "usine à gaz" par plaisir ?!

Au passage, un MsgBox est toujours modal, de sorte que je ne vois pas l'intérêt du vbApplicationModal

Je m'en suis rendu compte après avoir posté mon message. Désolé.

JP