Discussion :

[MJrush]

Bonjour

J'essaie de programmer une clé à l'aide du macro pour ouvrir un onglet protégé et j'obtiens l'erreur 1004 (la méthode 'onkey' de l'objet '_Application a échoué).

J'ai ensuite crée un fichier .xlsm où il n'y a que ce code, afin d'éliminer tous les autres problèmes potentiel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Application.OnKey "^{+}{P}", "test"
End Sub
 
Sub test()
ThisWorkbook.Sheets(1).Range("a1").Select
End Sub

J'ai encore le même message. Est-ce qu'il me manquerait qq chose dans la librairie Excel? Vraiment, je suis à cours d'idées.

[Ben_L]

Bonjour,

Pour obtenir l'exécution d'une macro lors de l'appui sur "Ctrl + Shift + P", il faut utiliser l'instruction suivante (pas d'accolades) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnKey "^+P", "test"

Pour que le code fonctionne, vous devrez inclure dans le module ThisWorkbook le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
 
Private Sub Workbook_Open()
    Application.OnKey "^+P", "test"
End Sub

Puis dans un module de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
 
Public Sub test()
    MsgBox "Yep !!!"
End Sub

Si la procédure test est incluse dans le module ThisWorkbook, même déclarée en Public, une erreur se produit.

Cdt

[MJrush]

Wow, incroyable que nulle part sur le web on mentionne qu'il ne faut pas mettre les accolades. Une chance que ce forum existe!!

Je les ai enlevées (et vérifié que les codes étaient au bons endroits) et ça a fonctionné!

Bref, maintenant que j'ai des accolades en banque, je vais les utiliser pour vous faire 1, 2, 3, 4 accolades en guise de remerciement. Merci encore!