Discussion :

[moi264]

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,

[moi264]

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 :

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

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,

[moi264]

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 :

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

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