Quitter Excel par macro
tigre
J'arrive bien à fermer mon classeur avec du code VBA mais je n'arrive pas à
fermer Excel 97 avec Application.Quit comme l'indique pourtant l'aide en
ligne.
Quelqu'un a-t-il la solution?
D'avance merci
tigre
me répondre dans le groupe
Stéphane GASSOU
Cela quitte normalement Excel.
tigre a écrit dans le message <01bde774$86b0d3c0$6b2c9ac3@x>...
tigre
Hélas Application.Quit ferme le classeur mais est incapable de fermer Excel
97. Si tu peux m'indiquer un tout petit code incluant Application.Quit qui
ferme Excel 97 je suis preneur. Peut-être cela marche-t-il avec Excel 5 (à
vérifier) mais pas avec Excel 97.
Bien sûr je connais ALT+F4 (qui me permet de fermer manuellement) mais je
pensais VBA5 et Excel 97 suffisamment développés pour exécuter de concert
une aussi simple instruction.
A très bientôt j'en suis sûr pour de nouvelles aventures.
tigre
me répondre dans le groupe. Merci
PS : Si quelqu'un y est arrivé, je serais curieux de savoir comment.
Stéphane GASSOU
Je ne comprend vraiment pas ton problème car l'instruction citée marche très
bien chez moi (Excel 97).
Lorsque j'écris :
Sub Quitter_Excel()
Application.Quit
End Sub
puis je la lance; cela quitte correctement Excel.
N'aurais tu pas une procédure "Auto_Close" qui effectuerait quelque chose
d'autre ?
Steph.
tigre a écrit dans le message <01bdebda$0de744a0$LocalHost@x>...
tigre
Tu avais raison. Mais ce n'est apparemment pas grâce à l'aide en ligne de
VBA Excel 97 que j'ai trouvé, ni grâce à la réponse d'un correspondant.
J'ai eu simplement l'idée d'écrire mon code ainsi Workbooks
("Nomfichier").Application.Quit
Et miracle VBA ferme le classeur et Excel. Super!
A bientôt de toutes façons
tigre
LePetit Marcel
Que dire d'autre ?
--
Marcel 8-)
Yves Benisty
> Salut Tigre,
>
> Je ne comprend vraiment pas ton problème car l'instruction citée marche très
> bien chez moi (Excel 97).
>
> Lorsque j'écris :
>
> Sub Quitter_Excel()
> Application.Quit
> End Sub
>
> puis je la lance; cela quitte correctement Excel.
> N'aurais tu pas une procédure "Auto_Close" qui effectuerait quelque chose
> d'autre ?
Du temps d'Execel 4, une macro (ancien nom des procédures) auto_fermer
ne pouvait pas appeler une autre macro.
Ta procédure quit est-elle appelée par une procédure auto_fermer, ou en
fait-elle partie ?
--
Yves Benisty, beni...@worldnet.fr
tigre
Effectivement cela marche. Je ne comprends pas pourquoi je n'y arrivais
pas. Mais Excel demande confirmation de l'enregistrement des modifications
effectuées. J'aimerais qu'il enregistre automatiquement sans me le
demander.
Le code suivant n'arrive qu'à fermer le classeur actif, mais ne ferme pas
Excel. Alors la question est : Pourquoi Application.Quit tout seul ferme
Excel, et le même avec la fermeture du classeur actif ne marche pas?
Curieux non ? Comment écrire ce code pour faire automatiquement deux
opérations : Enregistrer les modifications sans le me demander et fermer
Excel.
Sub fermer()
ActiveWorkbook.Close True
Application.Quit
End Sub
Act
D'avance merci à Stéphane et à tous les utilsateurs d'excel qui voudront
bien me répondre
Yves Benisty
> Le code suivant n'arrive qu'à fermer le classeur actif, mais ne ferme pas
> Excel. Alors la question est : Pourquoi Application.Quit tout seul ferme
> Excel, et le même avec la fermeture du classeur actif ne marche pas ?
C'est logique une fois la procédure fermée, elle ne peut s'exécuter.
Excel ne lit pas avec une ligne d'avance (c'est honteux, non ? ;-).
> Curieux non ? Comment écrire ce code pour faire automatiquement deux
> opérations : Enregistrer les modifications sans le me demander et fermer
> Excel.
Pourquoi ne pas enregistrer avant de fermer ? Dans ce cas, l'argument
true false ou omis n'est pas pris en compte puisqu'il n'y a pas de
modifs ?
S'il y a plusieurs feuilles, une mini-boucle enregistre chaque fichier
et le ferme.
Pour quitter, du temps d'excel 4 (cette antiquité ;-), il fallait écrire
comme ceci :
=ERREUR(FAUX)
=QUITTER()
=ERREUR(VRAI)
=RETOUR()
MAais je ne sais pas si les dernières lignes servaient à quelque
chose...
--
Yves Benisty, infirmier anesthésiste, beni...@worldnet.fr
Stéphane GASSOU
procédure continue !!
Essaies :
Sub Toto
ActiveWorkbook.Save
Application.Quit
End Sub
Stéphane G.
tigre a écrit dans le message
<01bdee3f$05d2e6e0$Loca...@tigre.easynet.fr>...
tiger
> Sub Toto
> ActiveWorkbook.Save
> Application.Quit
> End Sub
Je te remercie, cette fois ça marche!
Je demande un peu d'indulgence pour mon retard relatif à répondre. J'ai eu
pas mal de problèmes avec mon changement de FAI et mon logiciel de news. Un
comble pour moi qui utilise beaucoup les news.
Je crois que tout rentre dans l'ordre, encore que le logiciel s'est planté
lorsque je te faisais ma réponse. Je t'écris à nouveau.
Une précision importante. J'ai été obligé de chnager de pseudo "tigre",
celui-ci étant déjà utilisé chez mon nouveau FAI, j'ai donc choisi "tiger".
merci
tiger
me répondre, si nécessaire, dans le groupe.
JANIN Dominique
Voici une macro qui fonctionne chez moi
Sub fermer()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
tiger
J'ai essayé ta macro. Elle marche. Je te remercie. Je t'avais répondu plus
tôt, mais je m'aperçois que ma réponse ne figure pas dans le groupe. Aussi
je recommence. Il faut dire que depuis une bonne semaine j'ai eu plein de
problèmes avec mon logiciel de news depuis mon changement de FAI (encore
que j'utilise toujours le même logiciel de news).
Enfin grâce à une réponse reçue dans un autre groupe concernant mon appel à
l'aide sur le logiciel de news (ouf!), j'arrive enfin à envoyer des
messages.
A bientôt
tiger
me répondre, s'il y a lieu, dans le groupe
Ta macro (pour mémoire) :
tiger
Ceci est un test d'envoi.
Pardon
tigre <zyxt...@hol.fr> a écrit dans l'article
<01bdeca6$cb71c8c0$LocalHost@x>...