Magic_Doctor
XLDnaute Barbatruc
Bonsoir,
À partir d'un CommandButton que j'ai nommé perspicacement "Bouton_Calculatrice" je peux appeler la calculatrice :
Mais si, pour des raisons éthyliques, on clique plusieurs fois de suite sur ce même bouton, à chaque fois apparaîtra une nouvelle calculatrice.
Je voudrais tout simplement court-circuiter cet appel si la calculatrice est déjà présente. J'ai tenté ceci sans succès (du reste, je m'y attendais) :
Comment s'y prendre ?
À partir d'un CommandButton que j'ai nommé perspicacement "Bouton_Calculatrice" je peux appeler la calculatrice :
VB:
Private Sub Bouton_Calculatrice_Click()
'CommandButton "Bouton_Calculatrice" permettant d'afficher la calculatrice
Application.ScreenUpdating = False
Dim x
x = Shell("C:\Windows\System32\calc.exe", 1)
Range("C2500").Select: Application.ScreenUpdating = True
End Sub
Je voudrais tout simplement court-circuiter cet appel si la calculatrice est déjà présente. J'ai tenté ceci sans succès (du reste, je m'y attendais) :
VB:
Private Sub Bouton_Calculatrice_Click()
'CommandButton permettant d'afficher la calculatrice
Application.ScreenUpdating = False
Dim x
If Not x Is Nothing Then Exit Sub
x = Shell("C:\Windows\System32\calc.exe", 1)
Range("C2500").Select: Application.ScreenUpdating = True
End Sub
Dernière édition: