Problème avec une combinaison OnKey SendKeys
Bonjour,
Je cherche une solution pour remplacer le raccourci ALT+espace par CTRL+Espaace. Dans le Workbook_Open du personal.xlsb, j'ai mis :
Code:
Application.OnKey "^{ }", "AltEspace"
Dans un module du même classeur :
Code:
1
2
3
4
5
6
7
| Sub AltEspace()
Set Wsh = CreateObject("WScript.Shell")
With Wsh
SendKeys "% ", True
End With
Set Wsh = Nothing
End Sub |
Ca fonctionne mal, parce qu'il faut qu'à l'ouverture de chaque classeur, j'appuie manuellement sur ALT+Espace avant que ma solution fonctionne.
Est-il possible de rectifier ?
