Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel fermer une application

fermer une application

10 réponses
Avatar
msillienne
bonjour
j'ai bo chercher je ne trouve pas sur ce site=20
je souhaiterais fermer un programme qui n'a rien a voir=20
avec excel ou word , par exemple la calculatrice, ou un=20
autre ex=E9cutable ??
comment faire merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel HOLDERITH
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci
Avatar
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.



Avatar
Michel HOLDERITH
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du fichier excel
ReturnValue = "Calculator" 'nom de la fenetre de la calc
AppActivate ReturnValue 'active fenetre celc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "^C", True 'copie resultat calc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active fenetre excel
UserForm1.TextBox1.SetFocus 'active le textbox
SendKeys "^V", True 'colle le resultat
End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre Calc.
AppActivate ReturnValue ' active calc.
End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.



Avatar
msillienne
désolé mais ca ne marche pas :-(
-----Message d'origine-----
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du
fichier excel

ReturnValue = "Calculator" 'nom de la
fenetre de la calc

AppActivate ReturnValue 'active
fenetre celc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "^C", True 'copie
resultat calc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active
fenetre excel

UserForm1.TextBox1.SetFocus 'active le
textbox

SendKeys "^V", True 'colle le
resultat

End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre
Calc.

AppActivate ReturnValue '
active calc.

End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.




.




Avatar
Michel HOLDERITH
donnes moi ton adresse je te l'envois dans ta BAL.
@+
Michel.

"msillienne" wrote in message
news:0a6601c3a1f4$20b54a70$
désolé mais ca ne marche pas :-(
-----Message d'origine-----
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du
fichier excel

ReturnValue = "Calculator" 'nom de la
fenetre de la calc

AppActivate ReturnValue 'active
fenetre celc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "^C", True 'copie
resultat calc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active
fenetre excel

UserForm1.TextBox1.SetFocus 'active le
textbox

SendKeys "^V", True 'colle le
resultat

End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre
Calc.

AppActivate ReturnValue '
active calc.

End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.




.




Avatar
msillienne

y'aurais pas un truc tout simple du genre
shell(calculatrice,1)
fermer calculatrice.exe
merci




-----Message d'origine-----
donnes moi ton adresse je te l'envois dans ta BAL.
@+
Michel.

"msillienne" wrote in message
news:0a6601c3a1f4$20b54a70$
désolé mais ca ne marche pas :-(
-----Message d'origine-----
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du
fichier excel

ReturnValue = "Calculator" 'nom de la
fenetre de la calc

AppActivate ReturnValue 'active
fenetre celc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "^C", True 'copie
resultat calc

Application.Wait Now + TimeValue("0:00:1") 'attente
d'1sec

SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active
fenetre excel

UserForm1.TextBox1.SetFocus 'active le
textbox

SendKeys "^V", True 'colle le
resultat

End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre
Calc.

AppActivate ReturnValue '
active calc.

End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.




.




.





Avatar
patrick.lyon
bonjour
su tu lis l'exemple donné par Michel, tu as bien l'ouverture de la calc
(je trouve l'exemple de la calculatrice pas terrible quand on ais dans
Excel)
Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre Calc.
AppActivate ReturnValue ' active calc.
End Sub
ensuite , sympa le Michel, il te file une 2eme macro qui colle le



résultat de la calc dans Excel, et ferme la calc

j'utilise déjà la notion de sendkey pour envoyer des commandes a une
autre appli , ça fonctionne bien.
j'ai imprimé ce fil car il y a des petits trucs en plus qui
m'intéresse.


"msillienne" a formulé la demande :

y'aurais pas un truc tout simple du genre
shell(calculatrice,1)
fermer calculatrice.exe
merci




-----Message d'origine-----
donnes moi ton adresse je te l'envois dans ta BAL.
@+
Michel.

"msillienne" wrote in message
news:0a6601c3a1f4$20b54a70$
désolé mais ca ne marche pas :-(
-----Message d'origine-----
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du fichier excel
ReturnValue = "Calculator" 'nom de la fenetre de la calc
AppActivate ReturnValue 'active fenetre celc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "^C", True 'copie resultat calc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active fenetre excel
UserForm1.TextBox1.SetFocus 'active le textbox
SendKeys "^V", True 'colle le resultat
End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre Calc.
AppActivate ReturnValue ' active calc.
End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.




.




.



--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com




Avatar
Michel HOLDERITH
N'hesites pas si t'as aussi des question (et si je peux y repondre.....
lol ) :o)
@+
Michel.

"patrick.lyon" wrote in message
news:
bonjour
su tu lis l'exemple donné par Michel, tu as bien l'ouverture de la calc
(je trouve l'exemple de la calculatrice pas terrible quand on ais dans
Excel)
Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre Calc.
AppActivate ReturnValue ' active calc.
End Sub
ensuite , sympa le Michel, il te file une 2eme macro qui colle le



résultat de la calc dans Excel, et ferme la calc

j'utilise déjà la notion de sendkey pour envoyer des commandes a une
autre appli , ça fonctionne bien.
j'ai imprimé ce fil car il y a des petits trucs en plus qui
m'intéresse.


"msillienne" a formulé la demande :

y'aurais pas un truc tout simple du genre
shell(calculatrice,1)
fermer calculatrice.exe
merci




-----Message d'origine-----
donnes moi ton adresse je te l'envois dans ta BAL.
@+
Michel.

"msillienne" wrote in message
news:0a6601c3a1f4$20b54a70$
désolé mais ca ne marche pas :-(
-----Message d'origine-----
Fais un userform avec deux bouttons et un texbox :

Private Sub CommandButton1_Click()
MyAppID = "Microsoft Excel - Book1" 'nom du fichier excel
ReturnValue = "Calculator" 'nom de la fenetre de la
calc




AppActivate ReturnValue 'active fenetre celc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "^C", True 'copie resultat calc
Application.Wait Now + TimeValue("0:00:1") 'attente d'1sec
SendKeys "%{F4}", True 'ferme calc
AppActivate MyAppID 'active fenetre excel
UserForm1.TextBox1.SetFocus 'active le textbox
SendKeys "^V", True 'colle le resultat
End Sub

Private Sub CommandButton2_Click()
Dim ReturnValue
ReturnValue = Shell("C:WINDOWSCALC.EXE", 1) ' Ouvre Calc.
AppActivate ReturnValue ' active calc.
End Sub

clicks sur CommandButton2
fais un clacul bidon puis clicks sur CommandButton1
tu comprendras......
si tu veux l'exemple dans ta BAL pas de prob....
@+
Michel.




wrote in message
news:087c01c3a1ed$000d2b50$
je n'ai pas compris comment appliquer cette instruction
tu peux m'en dire plus stp
merci
-----Message d'origine-----
Salut,
as-tu fait :

SendKeys "%{F4}", True

@+
Michel.

"msillienne" wrote in message
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci


.




.




.



--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com







Avatar
patrick.lyon
:D
je t'ais déja imprimé
pas encore encadré pour mettre au mur
;-)

N'hesites pas si t'as aussi des question (et si je peux y repondre.....
lol ) :o)
@+
Michel.

Site : http://mesnews.no-ip.com



--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com


Avatar
Michel Pierron
Bonjour msillienne;
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long _
, lParam As Any) As Long

Sub CloseCalculette()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Calculatrice")
If hWnd Then PostMessage hWnd, &H10, 0&, 0&
End Sub

MP

"msillienne" a écrit dans le message de
news:0a6d01c3a1e6$b36226d0$
bonjour
j'ai bo chercher je ne trouve pas sur ce site
je souhaiterais fermer un programme qui n'a rien a voir
avec excel ou word , par exemple la calculatrice, ou un
autre exécutable ??
comment faire merci