Workbook_Open ne s'exécute pas

Version imprimable

03/02/2011, 19h31
zampano

Workbook_Open ne s'exécute pas

Bonjour,
Quand le tableau incriminé est fermé alors qu'une feuille bien précise est active, la procédure WorkBook_Open ne s'exécute pas quand le classeur est réouvert. Le problème disparait quand le classeur est fermé avec n'importe quelle autre de ses feuilles active.
D'autre part, si on lance manuellement la macro qui est lancée par le Workbook_Open, elle s'exécute normalement.
D'avance merci pour une direction dans laquelle chercher.
03/02/2011, 20h16
pgz

Bonsoir.

Cela n'est pas vraiment clair, mais je pense que la première chose à faire est de s'assurer si la procédure open s'exécute ou pas.
Pour cela, tu peux mettre un drapeau en tout début de procédure

Code:

msgbox "proc workbook_open"

On verra ensuite.

PGZ
04/02/2011, 00h21
zampano

Merci PGZ de t'intéresser à mon problème. Quand je dis que Workbook_Open ne s'exécute pas, j'ai fait un minimum de vérifications.
J'ai connu des systèmes qui permettaient d'entrer dans le Debug dès le lancement du programme à tracer, mais je ne sais pas si c'est possible avec VBA.
Une recherche sur le web montre que je ne suis pas le seul à avoir rencontré un problème avec Workbook_Open, et pas tous à cause du fait qu'ils avaient oublié de mettre la procédure dans Thisworkbook.
A suivre...

J'ai essayé d'isoler le problème en réduisant progressivement le contenu de la feuille à l'origine du problème.
Il semble que l'élément perturbateur soit la présence d'une règle de mise en forme conditionnelle. Il y a 2 règles dans cette feuille, mais seule l'une d'elles provoque le problème. Qu'a donc de particulier cette règle? Elle utilise une "user defined function", qui, par ailleurs, ne pose pas de problèmes.
Y a-t-il un problème connu quand on utilise une telle fonction dans une règle de mise en forme conditionnelle?
04/02/2011, 15h52
pgz
Bonjour

Citation:

Envoyé par zampano

Merci PGZ de t'intéresser à mon problème. Quand je dis que Workbook_Open ne s'exécute pas, j'ai fait un minimum de vérifications.
J'ai connu des systèmes qui permettaient d'entrer dans le Debug dès le lancement du programme à tracer, mais je ne sais pas si c'est possible avec VBA.
Une recherche sur le web montre que je ne suis pas le seul à avoir rencontré un problème avec Workbook_Open, et pas tous à cause du fait qu'ils avaient oublié de mettre la procédure dans Thisworkbook.
A suivre...

Tu ne réponds pas vraiment à la question.
A mon avis, si la prod=cédure évènementielle ne s'exécute pas cela peut être:
1. Il n'y as pas de procédure correctement orthographiée et correctement placée (cela ne devrait pas être le cas ici, puisque en général elle s'exécute)
2. L'application a ses procédures évènementielles interdites (Application.EnableEvents). Tu peux ouvrir un classeur vierge, faire
  
  Code:
  
  Application.EnableEvents = True
  
  et ouvrir alors le classeur en question.
3. Il y a une erreur de compilation ou d'exécution. Vérifier que
  
  Code:
  
  Option Explicit
  
  est placé en tête de tous les modules et faire une compilation du code.
4. La procédure est déclenchée, mais comme elle ne fait pas ce que tu attends, tu crois qu'elle ne s'est pas exécutée. D'où ma proposition de drapeau que tu n'as pas essayée.
Cordialement,

PGZ
04/02/2011, 16h51
zampano

Excuse moi PGZ, j'aurais dû être plus explicite: la technique du drapeau fait partie des premières vérifications que j'applique.
D'autre part, j'utilise "Option Explicit" systématiquement.
Comme j'indique dans mon message de 14h33, je pense avoir cerné la cause du problème, sans pouvoir trouver d'explication pour le moment. Je vais essayer de faire un classeur "minimal" permettant de reproduire le phénomène.
04/02/2011, 16h53
pgz

Re,

Citation:

Envoyé par zampano

Je vais essayer de faire un classeur "minimal" permettant de reproduire le phénomène.

Excel lente idée!

PGZ
04/02/2011, 18h52
zampano

2 pièce(s) jointe(s)

J'ai reproduit le problème dans le classeur ci-joint (bugtest).
Comme il n'est pas possible de joindre un fichier .xlsm, je l'envoie en .xls et les macros séparément en .txt

Il faut convertir bugtest en .xlsm

Le fichier modulesTest.txt inclut
- Une procédure Workbook_Open qui affiche "open".
- 2 macros
KillWorkbookOpen
RestoreWorkbookOpen

1) lancer bugtest
"open" s'affiche
2) lancer la macro KillWorkbookOpen
3) sortir d'Excel en sauvant bugtest
4) relancer bugtest
constater que "open" ne s'affiche pas
5) lancer la macro RestoreWorkbookOpen
6) sortir d'Excel en sauvant bugtest
7) relancer bugtest

Résultat du test?
04/02/2011, 23h41
pgz

Bonsoir.

En fait tu aurais pu enregistrer ton classeur au format xls avec les macros. Mais ce n'est pas le sujet.

J'ai regardé ce que tu as fait et ce que j'observe c'est qu'il y a bien un problème : dès qu'une MFC utilise une fonction personnalisée, la procédure Workbook_Open de s'exécute pas. Pas besoin de code pour cela, on peut créer la MFC à la main. Et même si la fonction perso est très simple.
Le pire c'est que la MFC elle-même semble bien fonctionner.

Je ne sais pas d'où ça vient. Désolé.

Mais il y a ici des utilisateurs de fonctions perso dans les MFC qui devraient pouvoir t'aider.

Cordialement,

PGZ
05/02/2011, 10h47
zampano

Merci de t'être donné la peine de vérifier.
Mais il y a un élément supplémentaire qui rend le problème encore plus vicieux: si le classeur possède une autre feuille (sans MFC avec fonction personnalisée), et que le classeur est fermé alors que cette feuille est active, le problème disparait. C'est d'ailleurs ce qui m'a piégé, car ça m'a empêché de faire immédiatement la relation entre le problème et la modif que je venais d'introduire.

Peu importe de savoir la raison: le principal est de savoir qu'il ne faut pas utiliser de fonction personnalisée dans une MFC.

Cordialement
Zampano
05/02/2011, 12h10
Philippe Tulliez
Bonjour,
Je viens de tester ton code.
Je n'ai aucun souci, la procédure événementielle fonctionne parfaitement avec ou sans fonction personnalisée
Cependant j'ai constaté des choses étranges.
Après plusieurs tests, je me suis rendu compte que les formules était en mode manuel et donc la MFC ne fonctionnait pas.
Concernant ta fonction de base
Code:

1 2 3 4 5 6 Function EstFormule(cel As Range) As Boolean EstFormule = False Application.Volatile If Left(cel.FormulaLocal, 1) = "=" Then EstFormule = True End Function
1- Application.volatile n'a aucune raison d'être dans ton cas.
2- Il n'y a aucune raison d'écrire EstFormule = False en début de procédure parce-que par défaut un boolean est à FAUX
Ta fonction peut se résumer ainsi.
Code:

1 2 3 4 Function EstFormule(cel As Range) As Boolean EstFormule = Left(cel.FormulaLocal, 1) = "=" End Function
Pour ce qui est de ta MFC, il y a des choses bizarres. Sélectionne les cellules A2:B5 et tu constateras qu'il y a plusieurs rêgles identiques.
Je crois que tu devrais revoir ton code qui crée la MFC par VBA.
05/02/2011, 13h23
pgz
Bonjour.

Pour la fonction elle-même on peut aussi faire
Code:

1 2 3 Function EstFormule(cel As Range) As Boolean EstFormule = cel.HasFormula End Function
Mais ce qui devient bizarre c'est que tu ne rencontres aucun pb avec la procédure évènementielle.

PGZ
05/02/2011, 13h59
Philippe Tulliez

Bonjour,

J'ai fait un nouvel essai après ton post me disant que peut-être avec tous les tests que j'avais fait j'avais peut-être loupé quelque chose et je confirme que cela fonctionne parfaitement.
Pour le EstFormule = cel.HasFormula, je m'étais aussi dit qu'il devait y avoir une propriété permettant de savoir si une cellule contenait une formule mais n'ayant jamais dû utiliser ce type de contrôle je me suis contenté d'alléger la formule sans plus.
05/02/2011, 16h45
pgz

Bonjour

Citation:

Envoyé par corona

J'ai fait un nouvel essai après ton post me disant que peut-être avec tous les tests que j'avais fait j'avais peut-être loupé quelque chose et je confirme que cela fonctionne parfaitement.

Merci d'avoir confirmé. Du coup, le mystère s'épaissit. Perso j'ai fait les essais avec XL 2007. Je trouve comme zampano : dès que la feuille visible à l'ouverture contient une MFC qui utilise une fonction perso, la procédure Workbook_open ne se déclenche pas.

Cordialement,

PGZ
05/02/2011, 22h22
pgz

Bonsoir.

C'est dommage que cette question reste en l'état. J'ai fait une recherche sur les forums de langue us et j'ai trouvé plusieurs fois cette question, mais jamais la réponse.
En fait il y a cette discussion de doasidont qui décrit la même situation. Au point que la fonction qu'il utilise dans sa MFC s'appelle ... IsFormula!
Cette discussion est taguée [RESOLVED], parce qu'elle a mis en évidence que si Workbook_open ne fonctionnait pas c'était à cause de la MFC. Doasidont a supprimé la MFC, ajouté une procédure Change sur la feuille pour modifier les formats à chaque saisie, et a tagué RESOLU.
Mais le mystère reste entier et cela ressemble fort à un bug signalé sur plusieurs forums mais pas résolu du tout.

Un MVP peut-être?

COrdialement,

PGZ
27/05/2014, 10h51
phpame

Une solution/contournement au pb de Workbook_Open non déclenchée

Je suis en Office2010 sous W7 ... et plusieurs années après l'initialisation de ce thread, je suis dans le même contexte (fonction perso sur MFC, ...) et je tombe sur le même type de problème (également rencontré sur forum US comme indiqué ci-dessus : http://www.vbforums.com/showthread.php?t=555092).

Pour ma part j'ai résolu le pb en utilisant l'ancienne procédure événementielle (Auto_Open dans un module standard) ... et là miracle cela fonctionne : Auto_Open est déclenchée alors que Workbook_Open ne l'est pas ... comprends qui peut 8O ... mais l'important c'est d'arriver à faire avancer le bourrier ;)
26/09/2018, 06h16
prengot

J'ai rencontré un cas un peu similaire

Une procédure d'un module gérait mal le Application.EnableEvents et le laissait à False à sa sortie . Après une fermeture avec enregistrement et réouverture la Workbook_open n'est pas déclenché.

J'avais cru initialement que la valeur d'Application.EnableEvents était enregistré avec le classeur. Ce n'est pas le cas, car si je ferme Excel le classeur déclenche le Workbook_Open. Par contre si je ferme le classeur sans fermer Excel et que je ré-ouvre mon classeur, le Workbook_Open n'est pas déclenché.

Cela tend à prouver que la variable Application.EnableEvents est enregistrée dans les variables de session Excel qui disparaissent à la fermeture d'Excel. Le prochain lancement d'Excel initialisera Application.EnableEvents àtrue et exécutera donc le workbook_open de vos classeurs.

Cette contribution vient un peu tard. Mais, j’espère qu'elle aidera de future visiteur du forum
Cordialement