OVH Cloud OVH Cloud

shell et compagnie

23 réponses
Avatar
msillienne
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de=20
microsoft ainsi qu'un autre programme, et je voudrais=20
faire un test : si la calculatrice est d=E9ja lanc=E9 ne pas=20
la lancer sinon ex=E9cuter la calculatrice.
comment je peux savoir tout cela ;-)=20
mer=E7i

10 réponses

1 2 3
Avatar
Vincent.
Salut !
Par exemple :

Sub BonneAnnee()
On Error Resume Next
AppActivate "Calculatrice"
If Err.Number <> 0 Then: Shell "C:WINNTSystem32CALC.EXE"
End Sub

A+

V.

-----Message d'origine-----
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi
.



Avatar
D.Lair
Bonjour et bonne année à tout le monde.
Je n'ai pas trouvé de solution directe avec l'aide de VBA,
mais une astuce : si CALC est lancé avec succès (ça on
peut le savoir par VBA) une variable pourrait être mise à
VRAI (par exemple CALC_ACTIF = true) et à chaque fois que
l'on repassera par SHELL("CALC.EXE"), il faudra tester
(juste avant), si la variable est true on ne fait rien,
sinon on lance CALC (et on met la variable à true)... Bien
sûr, cette variable doit être "non volatile" pour qu'elle
conserve à coup sûr sa valeur en dehors des macros, on
doit donc la stocker soit dans une cellule, soit en nom
(ActiveWorkbook.Names.Add Name:="calc_actif",
RefersToR1C1:="úLSE") que l'on met à "=TRUE" dès que
CALC a été lancé avec succès.
Bon courage.
DL
-----Message d'origine-----
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi
.



Avatar
Michel Pierron
Re msillienne;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Sub Test()
If FindWindow("SciCalc", vbNullString) = 0 Then Shell "CALC.EXE"
End Sub

MP

"msillienne" a écrit dans le message de
news:053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi
Avatar
Frédo P.
Tu regarde autour de toi si il y en a pas un qui la prise en pleine tête
-- x-)
Frédéric


"msillienne" a écrit dans le message
de news: 053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi
Avatar
Frédo P.
Salut Michel
Y a pas beaucoup de merci, je trouve, pour ceux qui en mérite.
--
Frédéric


"Michel Pierron" a écrit dans le message de news:

Re msillienne;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Sub Test()
If FindWindow("SciCalc", vbNullString) = 0 Then Shell "CALC.EXE"
End Sub

MP

"msillienne" a écrit dans le message
de

news:053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi




Avatar
sabatier
:-)))))))))
en tous cas, ferme bien toutes les fenêtres : une calculette, ça peut être
pire qu'un scud...
jps

"Frédo P." wrote:

Tu regarde autour de toi si il y en a pas un qui la prise en pleine tête
-- x-)
Frédéric

"msillienne" a écrit dans le message
de news: 053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi


Avatar
sabatier
l'a qu'a s'appeler philippe le pierron...bien fait pour lui...
jps

"Frédo P." wrote:

Salut Michel
Y a pas beaucoup de merci, je trouve, pour ceux qui en mérite.
--
Frédéric

"Michel Pierron" a écrit dans le message de news:

Re msillienne;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Sub Test()
If FindWindow("SciCalc", vbNullString) = 0 Then Shell "CALC.EXE"
End Sub

MP

"msillienne" a écrit dans le message
de

news:053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi






Avatar
Alain CROS
Bonjour.

Application.ActivateMicrosoftApp 0

Alain CROS.

"msillienne" a écrit dans le message de news: 053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi
Avatar
Michel Pierron
Bonjour Jean-Paul Six;
C'est vrai qu'entre FxM et Philippe.R, c'est courbettes et tralala, rotomontades
en tous gentres ou ronds de jambes...
On dirait les faux-culseries inter Raffar1 et Sarko6.
MP

"sabatier" a écrit dans le message de
news:
l'a qu'a s'appeler philippe le pierron...bien fait pour lui...
jps

"Frédo P." wrote:

Salut Michel
Y a pas beaucoup de merci, je trouve, pour ceux qui en mérite.
--
Frédéric

"Michel Pierron" a écrit dans le message de news:

Re msillienne;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Sub Test()
If FindWindow("SciCalc", vbNullString) = 0 Then Shell "CALC.EXE"
End Sub

MP

"msillienne" a écrit dans le message
de

news:053a01c3d36b$3e8857b0$
bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi









Avatar
Michel Pierron
Bien vu Alain; on fini par oublier les choses les plus élémentaires.
MP

"Alain CROS" a écrit dans le message de
news:%
Bonjour.

Application.ActivateMicrosoftApp 0

Alain CROS.

"msillienne" a écrit dans le message de
news: 053a01c3d36b$3e8857b0$

bonjour,
question, comment savoir que j'ai lancer la calculatrice?
je m'explique :
d'apres la commande shell je lance la calculatrice de
microsoft ainsi qu'un autre programme, et je voudrais
faire un test : si la calculatrice est déja lancé ne pas
la lancer sinon exécuter la calculatrice.
comment je peux savoir tout cela ;-)
merçi




1 2 3