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 : Sélectionner tout - Visualiser dans une fenêtre à part
Application.OnKey "^{ }", "AltEspace"
Dans un module du même classeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?