Ouverture/Fermeture d'application

[Pierre]

Bonjour,
Je souhaite faire ouvrir la calculatrice windows par un bouton. Jusque là
pas de problème :
Private Sub CommandButton2_Click()
RetVal = Shell("C:\WINDOWS\system32\calc.exe", 1)
End Sub

Mais je voudrais que si je re-clique sur ce même bouton, la calculatrice ce
referme. (Puis si je re-clique, qu'elle se rouvre...)
Bref un bouton qui serve à ouvrir la calculatrice mais aussi à la fermer.
La je bloque...
Si vous avez une tite idée

 

[Jef]

Re-salut pierre
essaye cette macro

Public Ret As Integer ' Declare une variable globale

Sub calc()
If Ret = 0 Then ' si calculatrice pas ouverte
Ret = Shell("calc.exe") ' On l'ouvre et on lui affecte un Numero
Else
AppActivate Ret ' Active l'application Calculatrice.
SendKeys "%{F4}", True 'envoie Alt F4 a l'application
Ret=0
End If
End Sub

ATTENTION la calulatrice doit etre ouverte que par excel sinon on ne peu pas la fermer

a+ jef

 

[Pierre]

Bonjour,
Cette macro ne fonctionne pas.
elle me semblait pourtant stable mais je vois po où elle cbloque !!!