Discussion :

[Daniel.C]

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 ?

[eriiic]

Bonjour,

j'ai l'impression que tu as oublié le . devant

SendKeys "% ", True

eric

[Daniel.C]

Bonjour,

Effectivement. Merci. Mais le problème demeure.