Calculatrice_Id
Sub Calculatrice()
'Appelle la calculatrice Windows
'Magic_Doctor / Bernard_XLD
If IsProcessRunning("calc.exe") Then Afficher_Calculatrice: Exit Sub 'si la calculatrice est déjà ouverte, elle s'affiche et on sort
Calculatrice_Id = Shell("c:\windows\system32\calc.exe", vbNormalFocus) 'ouvre la calculatrice Windows
End Sub