Raccourci d'exécution macros "Application.OnKey" dans l'ensemble des classeurs ?

Bonjour,


J’essaie d’affecter via un code VBA un raccourci clavier à une macro.

Le raccourci souhaité pour appeler la macro : MAJ+F1
Après plusieurs recherches sur internet, j'ai inséré le code suivant dans le module "ThisWorkbook" de mon classeur de macro personnel ;

Code:

---

1 2 3 4 5

Private Sub Workbook_activate()   Application.OnKey "+{F1}", "Macro1"   End Sub

---

Le raccourci fonctionne, mais uniquement lorsque je suis dans le classeur de macros personnelles.

Comment puis-je faire pour que le raccourci soit exécutable dans l'ensemble des classeurs ?

Merci pour votre aide !

Benjamin

Bonjour

Je ne saurais trop te conseiller de nommer correctement tes procédures : Macro1 ne voulant rien dire, bonjour la maintenance...

Sous récerve que la macro soit dans le classeur de macro personnelles et donc de portée universelle

Code:

---

1 2 3 4 5

Private Sub Workbook_Open() With Application .OnKey "+{F1}", "Macro1" End With End Sub

---

Merci beaucoup cela fonctionne !!
Et je prends en compte les conseils ! :)