vinceska a écrit :
Le simple fait de brancher un clavier, le raccourcis marche.
Comment fais-tu pour envoyer ton raccourci sans clavier ?
C'est un écran tactile ? Dans ce cas essaie d'utiliser OnKeys en combinaison avec DoEvents :
Sub test()
Dim i
'La touche F9 envoie un stop
Application.OnKey "{F9}", "SubstCtrlPause"
For i = 1 To 9 ^ 9
i = i + 1
DoEvents
Next
'Fonctionnement normal de F9
Application.OnKey "{F9}", ""
End Sub
Sub SubstCtrlPause()
Stop
End Sub
A+