Discussion :

[softwood]

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 :

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

1
2
3
private sub workbook_open()
macro_depart
end sub

dans un module

Code :

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

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 :

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

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

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

[patricktoulon]

re

Code :

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

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

peut etre que comme ca cela reglera ton soucis

[softwood]

re

Code :

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

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

[softwood]

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 :

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

1
2
3
4
 
sub pasevent
Application.EnableEvents=false
end sub

cordialement

[halaster08]

Bonjour à tous,

re

Code :

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

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.

[Pierre Fauconnier]

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

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 :

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

1
2
3
4
5
6
7
8
9
Sub MaMacro()
  On Error GoTo EndHandler
  Application.EnableEvents = True
  ...
  ...
  ...
EndHandler:
  Application.EnableEvents = False
End Sub

[softwood]

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

[eriiic]

Bonjour,

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

Défini dans un module standard

Code :

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

Public noEvents as Boolean

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

Code :

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

If noEvents then Exit Sub

et là où il faut :

Code :

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

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 :

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

1
2
3
4
Function enabledEvents()
    Application.Volatile
    Application.EnableEvents = True
End Function

Dans une cellule :

Code :

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

=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

[softwood]

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

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

[eriiic]

Bonjour,

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

effectivement, mieux que la fonction personnalisée.
eric

[softwood]

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

[unparia]

En tout cas merci

Il n'y a pas de quoi

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.