OVH Cloud OVH Cloud

Désactivation Messagebox dans Excel 97

3 réponses
Avatar
Valéry
Bonjour,

Je suis sous Excel 97, en VBA, j'ouvre plein de fichier excel (environ 900),
qui sont conçus identiquement, par contre, dans ces classeurs, j'ai une
fonction Auto_open, qui affiche un message de bienvenue, donc à chaque
ouverture, je suis obligé de cliquer sur le message.
Hors comme je l'ai précisé, j'ai 900 fichiers à ouvrir, je ne me vois pas
cliquer 900 fois sur OK. Existe-t-il une méthode pour désactiver sub
auto_open ou pour désactiver les messagebox?

En vous remerciant par avance.
Cordialement
Valéry POLLET

3 réponses

Avatar
anonymousA
bonjour,

si l'ouverture des fichiers se fait par l'exécution d'une macro ,il n'y a
pas d'exécution des macros Auto_Open de chaque fichier ouvert.
Si par contre , ces fichiers ont des macros Workbook_Open, il faut invalider
leur déclenchement en portant dans la macro qui les ouvre, l'instruction
Application.enableeventsúlse puis remettre cette propriété à true une fois
tous les fichiers ouverts.

A+



Bonjour,

Je suis sous Excel 97, en VBA, j'ouvre plein de fichier excel (environ 900),
qui sont conçus identiquement, par contre, dans ces classeurs, j'ai une
fonction Auto_open, qui affiche un message de bienvenue, donc à chaque
ouverture, je suis obligé de cliquer sur le message.
Hors comme je l'ai précisé, j'ai 900 fichiers à ouvrir, je ne me vois pas
cliquer 900 fois sur OK. Existe-t-il une méthode pour désactiver sub
auto_open ou pour désactiver les messagebox?

En vous remerciant par avance.
Cordialement
Valéry POLLET


Avatar
Valéry
L'ouverture de mes fichiers (un par un dans une boucle while) se fait grace à
workbooks("toto.xls").open effectivement, mais cette méthode ne marche pas.
Alors grace à ta réponse, une question me vient, quelle est l'autre méthode
qui me permet d'ouvrir un fichier sans que Autoopen ne se lance?



bonjour,

si l'ouverture des fichiers se fait par l'exécution d'une macro ,il n'y a
pas d'exécution des macros Auto_Open de chaque fichier ouvert.
Si par contre , ces fichiers ont des macros Workbook_Open, il faut invalider
leur déclenchement en portant dans la macro qui les ouvre, l'instruction
Application.enableeventsúlse puis remettre cette propriété à true une fois
tous les fichiers ouverts.

A+



Bonjour,

Je suis sous Excel 97, en VBA, j'ouvre plein de fichier excel (environ 900),
qui sont conçus identiquement, par contre, dans ces classeurs, j'ai une
fonction Auto_open, qui affiche un message de bienvenue, donc à chaque
ouverture, je suis obligé de cliquer sur le message.
Hors comme je l'ai précisé, j'ai 900 fichiers à ouvrir, je ne me vois pas
cliquer 900 fois sur OK. Existe-t-il une méthode pour désactiver sub
auto_open ou pour désactiver les messagebox?

En vous remerciant par avance.
Cordialement
Valéry POLLET




Avatar
anonymousA
re,

l'instruction pour ouvrir un fichier est p.e Workbooks.Open "C:toto.xls".
Ensuite, ce que je t'ai signalé c'est que si le fichier ( p.e : toto.xls) a
une macro Auto_Open , celle-ci ne se déclenchera pas car ce type de macro ne
se déclenche pas lors d'un appel par une procédure VBA.
c'est même la raison qui fait que si on veut la faire exécuter ( il est des
cas où cela se revèle necéssaire), on est obligé d'écire dans la procédure
appelante p.e ActiveWorkbook.RunAutoMacros xlAutoOpen.
Par contre, si le fichier toto.xls dispose d'une macro evenementielle de
type workbook_open, celle-ci se déclenchera sauf si dans l'instruction
précédant Workbooks.Open "D:toto.xls", tu écris
Application.enableeventsúlse

A+


L'ouverture de mes fichiers (un par un dans une boucle while) se fait grace à
workbooks("toto.xls").open effectivement, mais cette méthode ne marche pas.
Alors grace à ta réponse, une question me vient, quelle est l'autre méthode
qui me permet d'ouvrir un fichier sans que Autoopen ne se lance?



bonjour,

si l'ouverture des fichiers se fait par l'exécution d'une macro ,il n'y a
pas d'exécution des macros Auto_Open de chaque fichier ouvert.
Si par contre , ces fichiers ont des macros Workbook_Open, il faut invalider
leur déclenchement en portant dans la macro qui les ouvre, l'instruction
Application.enableeventsúlse puis remettre cette propriété à true une fois
tous les fichiers ouverts.

A+



Bonjour,

Je suis sous Excel 97, en VBA, j'ouvre plein de fichier excel (environ 900),
qui sont conçus identiquement, par contre, dans ces classeurs, j'ai une
fonction Auto_open, qui affiche un message de bienvenue, donc à chaque
ouverture, je suis obligé de cliquer sur le message.
Hors comme je l'ai précisé, j'ai 900 fichiers à ouvrir, je ne me vois pas
cliquer 900 fois sur OK. Existe-t-il une méthode pour désactiver sub
auto_open ou pour désactiver les messagebox?

En vous remerciant par avance.
Cordialement
Valéry POLLET