Création et gestion des raccourcis -VBA

Bonjour à toutes et à tous,

Je vous expose ici ma problématique : je souhaite créer une macro qui puisse :

1. Importer un module
2. Créer un raccourci dans un fichier spécifique
3. Attribuer un raccourci clavier à ce raccourci

J'ai réussi en scrutant attentivement le forum à réaliser les deux premier points, or je bute sur le troisième. D'ailleurs je ne sais même pas s'il est réellement possible via VBA d'attribuer un raccourci clavier à un raccourci de fichier ( qui normalement se fait via un click droit -> propriété -> attribuer touche de raccourci).

Merci par avance,

Bien cordialement,

J'ai réussi à trouver une réponse partiel .

La propriété raccourci clavier du raccourci est .hotkey

J'ai réussi à trouver sur un autre site une macro qui modifie les differentes propriétés d'un fichier.ink ( raccourci ) .

j'ai simplifié le code proposé afin d'obtenir ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Modifier_Fichier_Raccourci() Dim ObjShell As Object, ObjFolder As Object Dim WshShell As Object, Lien As Object Dim Chemin As String Dim Raccourci As String     'Emplacement du répertoire où sont tes fichiers Chemin = "C:\Users\MACHIN\Desktop\Test gestion du temps auto\"     Set WshShell = CreateObject("WScript.Shell") Set ObjShell = CreateObject("Shell.Application") For Each ObjFolder In ObjShell.Namespace("C:\Users\MACHIN\Desktop\Test gestion du temps auto\").Items   'Récupérer chemin et fichier des raccourci Raccourci = ObjFolder.path 'Objet raccourci lui-même (objet) Set Lien = WshShell.createShortcut(Raccourci)     Lien.hotkey = "CTRL+ALT+7" 'Optionnel Lien.WorkingDirectory = Chemin Lien.Save       Next End Sub

---

Ayant trouvé la solution je ferme donc cette discussion.

Bien cordialement,

A nouveau bonjours à toutes et à tous,

Je suis désormais face à un second problème.

Je souhaiterai laisser à l’utilisateur le choix de la touche à associer a CTRL+ALT pour son raccourci .ink ( propriété .hotkey du code). Je l'ai mis en place via une inputbox comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub LeRaccourci(nomFichier As String) Dim nomFichierSansExtension As String Dim raccourcitouche As String nomFichierSansExtension = Left(nomFichier, Len(nomFichier) - 5)   raccourcitouche = InputBox("Choissisez la touche pour le raccourci")   Set scrHst = CreateObject("WScript.Shell") emplacement = scrHst.SpecialFolders("Desktop") Set Raccourci = scrHst.createShortcut(emplacement & "\" & nomFichier & " raccourci.lnk") Raccourci.WorkingDirectory = emplacement Raccourci.TargetPath = Workbooks(nomFichier).path & "\" & nomFichier Raccourci.hotkey = "CTRL + ALT + " & raccourcitouche     Set Raccourci = Nothing Set scrHst = Nothing End Sub

---

Le soucis est ligne 14 avec la propriété .hotkey .

Cela fonctionne bien uniquement pour les touches de l'alphabet.

Impossible de le faire fonctionner avec les touches du num pad (1,2,+,-, ...) ainsi qu'avec les flèches.
Lorsque j'utilise le code avec un "+" par exemple j'obtiens une erreur d’exécution 5 ( Argument ou appel de procedure incorrect). Si dans le champs de l'inputbox je place un chiffre cela le converti automatique en sa valeur correspondante ( & pour 1 , é pour 2 , etc ...).

Je ne sais donc pas comment faire, en esperant avoir une solution.

Je suis ouvert à toutes bonnes idées

Merci d'avance