Discussion :

[zampano]

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.

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

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

msgbox "proc workbook_open"

On verra ensuite.

PGZ

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

[pgz]

Bonjour

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 :

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

   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 :

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

   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

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

[pgz]

Re,

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

Excel lente idée!

PGZ

[zampano]

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?

[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

[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

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

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

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 :

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

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.

[pgz]

Bonjour.

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

Code :

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

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

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

[pgz]

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.

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

[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

[phpame]

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 ... mais l'important c'est d'arriver à faire avancer le bourrier

[prengot]

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