XL 2013 Macros se désactivent pendant utilisation du classeur

[Usine à gaz]

Bonjour à toutes et à tous,

Me re-voici pour un souci que nous avons depuis longtemps.
J'avais déjà posé la question mais je m'étais mal exprimé (ça m'arrive souvent LOL) et je n'avais pas obtenu de solution.
C'est un vrai problème de fonctionnement et je me tourne à nouveau vers vous.

Le cadre de ma question :
Je travaille avec des commerciales qui travaillent chez elles.
Chaque Commerciale à son classeur de prospection.
Chaque matin, j'envoie le classeur du jour à chaque Commerciale (via skype).
Quand elles l'ouvre la première fois, elle activent les macros.
Jusque là tout va bien

C'est l'utilisation qui pose souvent problème :
Le classeur est truffé de codes indispensables au bon fonctionnement (mon usine à gaz comme dirait job75 LOL)
Tout ou presque est automatisé par codes.

Mais voilà :
On a souvent tendance à utiliser un classeur excel truffé de codes comme un logiciel et ce n'est pas un logiciel.
Souvent, mes commerciales cliquant soit :
- trop vite,
- ou actionnant un bouton avant que l'action précédente soit terminée,
- ou il ne faut pas, .............. font beuguer et les macros se trouvent désactivées.
Elles ne s'en aperçoivent pas ce qui pose un gros souci de fonctionnement et créé des erreurs etc....

Ma question (sans trop d'espoir) :
Est-il possible, qu'à l'instant ou une fausse manœuvre ou des clics trop rapides désactivent les macros, qu'un message d'alerte apparaisse ?

Voilà qui nous rendrait un très grand service sachant que dans la feuille concernée, j'ai mis un bouton pour ré-activer les macros.
Voilà une bouteille à la mer .... mais avec des magiciens, l'espoir est permis

Je ne peux pas mettre de fichier test mais si cela vous semble nécessaire, j'essaierai d'en faire un.
Avec mes remerciements,
Je vous souhaite à toutes et à tous une belle journée,
Amicalement,
lionel,

 

[job75]

Bonjour Lionel,

Tu mélanges tout

Application.EnableEvents = False ne désactive pas les macros mais les évènements.

Si pour une raison ou une autre cette instruction est exécutée on peut bien sûr corriger par :

Sub ReactiveMacros()
On Error Resume Next
Application.OnTime t, "ReactiveMacros", , False
t = Now + 5 / 86400 'délai de 5 secondes
Application.OnTime t, "ReactiveMacros"
Application.EnableEvents = True 'réactive les évènements
End Sub

Cela dit si Application.EnableEvents a été mis (définitivement) à False c'est que le code est mal fichu, il suffit de le corriger !!!

A+

 

[Usine à gaz]

Encore merci d'être là !
Je vais voir ce soir et je te dirai

 

[Usine à gaz]

Bonjour Gérard, le Forum,

J'ai intégralement copié le nouveau code post #16
Mais ça ne réactive pas.

Désolé d'y revenir
Je joins le fichier test que j'ai fait.

Bonne journée à toutes et à tous,
lionel

 

[job75]

J'ai intégralement copié le nouveau code post #16

Non, pas sur le fichier du post #18.

 

[Usine à gaz]

Ha bon ? tous comptes faits, je souhaite m'être trompé LOL
Je vais regarder.

 

[Usine à gaz]

Re-Gérard,

Effectivement ! j'ai remis ton code post #10 dans mon fichier test
Mais toujours pas de réactivation.

Je continue à chercher

 

[job75]

Mais qu'est-ce qu'il t'arrive Lionel ? C'est la macro de mon post #16 qu'il faut évidemment utiliser

 

[Usine à gaz]

Bon sang désolé, je dois être trop dérangé
je le reprends

 

[Usine à gaz]

Mais non LOL, je l'avais bien mise mais elle ne fonctionne pas, c'est pour ça que je l'avais désactivée dans mon fichier post#18

Je le remets avec la macro du post#16 activée

Ou alors je deviens chèvre et j'en suis désolé

 

[Usine à gaz]

Vraiment désolé, je suis trop fatigué
J'ai remis le bon classeur qui va avec le post 24

 

[job75]

Bonjour Lionel, le forum,

Dans ton dernier fichier la macro "ReactiveMacros" doit être dans un module standard et pas dans ThisWorkbook.

C'est ce que tu avais demandé sur l'autre fil !

A+

 

[Usine à gaz]

c'est vrai merci Gérard,
je modifie et je test

 

[Usine à gaz]

Evidemment quand je fais comme tu le dis ça marche (le pire est que je n'en doute pas depuis tjrs ).
Dsl encore gérard mais j'ai un boulot de fou et dérangé à chaque instant de 6h30 le matin jusqu'à plus de 20 heures le soir.
Merci gérard pour ta patience
Je joins le fichier qui fonctionne,
lionel,

 

[job75]

Je joins le fichier qui fonctionne,

Non, toujours des conneries, c'est pas croyable que tu ne t'en sortes pas sur un truc aussi simple, j'ai corrigé ton fichier.

 

[Usine à gaz]

Re-Gérard,
Mes excuses et Merci
Moi aussi je ne me comprends pas en ce moment ... certainement trop surmené.
Je vais me mettre au repos et sans excel ce WE pour récupérer
lionel