Application.events et wokbook_open

Bonjour
Question comment forcer application.eventsenabled ? ... certainement pas dans workbook_open mais alors ?

voici le descriptif du pb
J'ai un classeur travail.xlsm qui à l'ouverture déclenche une macro
donc dans
thisworkbook

Code:

---

1 2 3

private sub workbook_open() macro_depart end sub

---

dans un module

Code:

---

1 2 3

sub macro_depart() msgbox "bonjour" end sub

---

Mes utilisateurs (excel mac ou excel pc 2016) m'ont signalé que cela ne fonctionnait pas

après plusieurs recherches ... , voici ce que j'observe

si par suite d'un incident un classeur a laissé application.eventsenabled à false
alors m^me si on ferme ce classeur et que excel reste ouvert application.eventsenabled reste à false d'où mon problème

j'ai fait le test
dans un classeur vilain.xlsm j'ai activé une macro

Code:

---

1 2 3 4

sub pasevent   application.eventsenabled=false end sub

---

puis j'ai fermé ce classeur sans fermer excel
puis j'ai ouvert travail.xlsm et effectivement la macro d'ouverture ne s'execute pas ce qui me semble cohérent.

Si on ferme et rouvre excel, pas de problème semble t'il c'est donc la consigne donnée en attendant mieux

d'où ma question en entête : comment peut on mettre application.eventsenabled actif à l'ouverture d'un classeur ?
merci pour vos réponses

cordialement

Bonjour
"eventsenabled" ? Tiens ! c'est une nouvelle propriété ?
Il est manifeste que le code que tu montres ici n'est pas un copié/collé du tien.
Reviens s'il te plait avec ton vrai code.

re

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = True End Sub

---

peut etre que comme ca cela reglera ton soucis

Citation:

---

Envoyé par patricktoulon

re

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = True End Sub

---

peut etre que comme ca cela reglera ton soucis

---

bonjour et merci pour la remarque
effectivement j'ai tapé un peu vite et c'est bien Application.EnableEvents que j'évoquais
et donc la correction ne règle pas le souci .. ce serait trop simple
cordialement

Citation:

---

Envoyé par unparia

Bonjour
"eventsenabled" ? Tiens ! c'est une nouvelle propriété ?
Il est manifeste que le code que tu montres ici n'est pas un copié/collé du tien.
Reviens s'il te plait avec ton vrai code.

---

bonjour et merci

effectivement j'ai tapé directement le code pour le simplifier .. voici donc le code corrigé

dans un classeur vilain.xlsm j'ai activé une macro

Code:

---

1 2 3 4

sub pasevent Application.EnableEvents=false end sub

---

cordialement

Bonjour à tous,

Citation:

---

Envoyé par patricktoulon

re

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = True End Sub

---

peut etre que comme ca cela reglera ton soucis

---

Il me semble que ça ne peut pas fonctionner.
Si les évènements sont désactivés, normalement le BeforeClose ne se déclenche pas et donc les évènements ne sont pas réactivés.

@softwood
Malheureusement pour toi, je pense que ton soucis se trouve dans le(s) classeur(s) où tu désactive les évènement, il faut que tu vérifie chaque macro et trouve celle(s) où les évènements de sont pas réactivés et rajouter la ligne d'activation en fin de macro.

Salut.

Par définition, on ne saurait pas réactiver les évènements lors de la survenance d'un évènement.

C'est un gros problème de application.enableevents = false, c'est qu'il faut le remettre à TRUE en fin de procédure/fonction, comme le fait remarquer Halaster :ccool:

Attention que cela ne suffit pas. Si le code plante sur une macro qui a désactivé les évènements, ces derniers restent désactivés. Tu as donc intérêt à gérer les erreurs qui peuvent arriver dans une macro

Code:

---

1 2 3 4 5 6 7 8 9

Sub MaMacro() On Error GoTo EndHandler Application.EnableEvents = True ... ... ... EndHandler: Application.EnableEvents = False End Sub

---

Complètement d'accord le problème est que je ne maitrise évidemment pas toutes les applis ouvertes par les utilisateurs de ma propre application !!
Bien entendu j'ai mis en oeuvre la gestion des erreurs afin de réactiver si besoin les évènements !
mais si une autre appli inconnue n'a pas fait le nécessaire le gestionnaire d’événements reste inactif tant que que excel est ouvert .. et ce m^me si l'appli fautive est fermée (j'ai fait les tests)

donc je confirme ma consigne : si problème (il y a un message de bienvenue à l'ouverture du classeur ... qui apparait si l'ouverture se fait correctement) FERMER EXCEL et rouvrez mon application (à l'ouverture d'excel le gestionnaire d’évènements est rétabli)

Qu'en pensent les experts ?
merci
cordialement

Bonjour,

dès que les procédures en cause deviennent un peu longues j'évite .enabledEvents= false.

Défini dans un module standard

Code:

---

Public noEvents as Boolean

---

.
Au début de toutes les événementielles :

Code:

---

If noEvents then Exit Sub

---

et là où il faut :

Code:

---

1 2 3

noEvents = True ' code sans événement noEvents = False

---

Ca n'évitera pas tes plantages à rechercher, mais au moins à la ré-ouverture noEvents sera à False, donc événements actifs.
Tu peux même, en multipliant les variables, choisir de suspendre certains événement et pas d'autres.

Maintenant pour les applis que tu ne maitrises pas, à part leur mettre un raccourci vers une macro qui rétabli les événements sur demande je vois pas.
Déjà ça leur évitera de devoir tout fermer.
eric

PS : une idée quand même si c'est un autre fichier qui a bloqué les événements.

Code:

---

1 2 3 4

Function enabledEvents() Application.Volatile Application.EnableEvents = True End Function

---

Dans une cellule :

Code:

---

=enabledEvents()

---

Comme elle est volatile, elle sera exécutée à l'ouverture.
Vider la cellule avant de suspendre les événements, remettre la formule ensuite.
Par contre ça sera trop tard pour WorkbookOpen()
Ca fait un peu bricolage mais bon...
eric

merci de tes conseils je vais reprendre mes procédures - et suivre ton idée
mais on ne peut être derrière chaque utilisateur ....et imaginer ce qu'ils peuvent ...imaginer
cordialement

Bonjour
Utiliser la macro Auto_Open pour systématiquement mettre à true la propriété enableevents.
Elle s'exécutera ipso facto sur tout classeur ouvert
Et gérer ensuite comme on l'entend, dans chaque classeur, cette propriété enableevents.

Bonjour,

Citation:

---

Utiliser la macro Auto_Open pour systématiquement mettre à true la propriété enableevents.

---

effectivement, mieux que la fonction personnalisée.
eric

Citation:

---

Envoyé par unparia

Bonjour
Utiliser la macro Auto_Open pour systématiquement mettre à true la propriété enableevents.
Elle s'exécutera ipso facto sur tout classeur ouvert
Et gérer ensuite comme on l'entend, dans chaque classeur, cette propriété enableevents.

---

cela répond tout à fait à mon problème et du coup les différentes tâches prévues dans workbook_open vont être replacées dans auto_open
J'avais lu ici et là qu'il ne fallait plus utiliser auto_open mais plutôt workbook open
Pourtant et dans ce cas auto_open me semble plus intéressant et fonctionne parfaitement sur excel 2016 excel 2010 ..
Reste à tester sur Mac où il y a toujours quelques surprises

En tout cas merci

Citation:

---

En tout cas merci

---

Il n'y a pas de quoi

Citation:

---

J'avais lu ici et là qu'il ne fallait plus utiliser auto_open mais plutôt workbook open

---

Les vocations de l'une (la macro) et de l'autre (l'évènement) sont très différentes et indépendantes l'une de l'autre. ;)