OVH Cloud OVH Cloud

Instance d'Excel à casser

2 réponses
Avatar
JohnFuss
Bonjour à tous,

il arrive "des fois" qu'Excel plante et reste en mémoire, on se retrouve
avec les macros complémentaires en lecture seule.

Est-il possible à l'ouverture d'Excel de tester si une autre instance
"cassée" est ouverte ? et si c'est le cas est-ce qu'on peut la "fin de
tacher" et quitter et relance Excel (pour ne plus être en lecture seule) ?

Merci d'avance.

John

2 réponses

Avatar
michdenis
Bonjour John,

Ouvre NotePad
Copie ce qui suit
enregistre sur le bureau le fichier avec une extension de fichier .VBS

Tu n'auras qu'à double-cliquer sur le fichier sur le bureau, pour t'assurer qu'aucune instance d'excel n'est ouverte en mémoire
vive. (un outil bien pratique pour les développeurs !)

'-----------------------------
on error resume next
set WshShell = CreateObject("WScript.Shell")
do
GetObject(,"excel.Application").Quit
select case err.number
case 429
a = msgbox("Il n'y a plus d'instance active d'Excel", vbokonly)
exit do
case else
end select
loop
'-----------------------------


Salutations!



"JohnFuss" a écrit dans le message de news: djl1f3$og1$
Bonjour à tous,

il arrive "des fois" qu'Excel plante et reste en mémoire, on se retrouve
avec les macros complémentaires en lecture seule.

Est-il possible à l'ouverture d'Excel de tester si une autre instance
"cassée" est ouverte ? et si c'est le cas est-ce qu'on peut la "fin de
tacher" et quitter et relance Excel (pour ne plus être en lecture seule) ?

Merci d'avance.

John
Avatar
JohnFuss
Merci bien, ça tourne très bien, un peu dangereux :-) mais fonctionne très
bien.

John

"michdenis" a écrit dans le message de
news:
Bonjour John,

Ouvre NotePad
Copie ce qui suit
enregistre sur le bureau le fichier avec une extension de fichier .VBS

Tu n'auras qu'à double-cliquer sur le fichier sur le bureau, pour
t'assurer qu'aucune instance d'excel n'est ouverte en mémoire

vive. (un outil bien pratique pour les développeurs !)

'-----------------------------
on error resume next
set WshShell = CreateObject("WScript.Shell")
do
GetObject(,"excel.Application").Quit
select case err.number
case 429
a = msgbox("Il n'y a plus d'instance active d'Excel", vbokonly)
exit do
case else
end select
loop
'-----------------------------


Salutations!



"JohnFuss" a écrit dans le message de news:
djl1f3$og1$

Bonjour à tous,

il arrive "des fois" qu'Excel plante et reste en mémoire, on se retrouve
avec les macros complémentaires en lecture seule.

Est-il possible à l'ouverture d'Excel de tester si une autre instance
"cassée" est ouverte ? et si c'est le cas est-ce qu'on peut la "fin de
tacher" et quitter et relance Excel (pour ne plus être en lecture seule) ?

Merci d'avance.

John