Création de raccourcis automatiquement sur le bureau

Par exemple, vous avez une base de données Access totalement terminée, et vous désirez que lors de son lancement, une icône soit créee sur le bureau pour des questions de facilités. Voici le code à insérer dans un module :Il s'agit d'un raccourci vers une gestion de cave à vin.

Gestion de Cave : C'est le nom du raccourci qui apparaîtra à l'écran
D:\Atelier\CaveAVin.mdb : C'est le chemin et le nom du fichier visé par le raccourci
CTRL+SHIFT+F : C'est le raccourci clavier qui permettra son lancement plus rapide
D:\Atelier\IconeVin.ico : C'est le chemin et le nom de l'icône que vous voulez visualiser
Cliquez ici pour gérer les vins : C'est le texte d'info-bulle qui apparaîtra quand vous passerez la souris par dessus sans cliquer
D:\Atelier : C'est l'endroit ou on se trouvera quand on lancera le raccourci

Public Sub Raccourci()
Set WshShell = CreateObject("WScript.Shell")
strdesktop = WshShell.specialFolders("Desktop")
Utilisateur = Mid(strdesktop, 27, 8)
Set oshellLink = WshShell.CreateShortcut(strdesktop & "\Gestion de cave.lnk") 'libellé du raccourci
oshellLink.targetPath = "D:\Atelier\CaveAVin.mdb" 'chemin du raccourci
oshellLink.WindowStyle = 1
oshellLink.HotKey = "CTRL+SHIFT+F" 'raccourci clavier
oshellLink.IconLocation = "D:\Atelier\IconeVin.ico" 'icône du raccourci
oshellLink.Description = "Cliquez ici pour gérer les vins" 'Texte info-bulle du raccourci
oshellLink.WorkingDirectory = "D:\Atelier" 'destination du raccourci
oshellLink.Save 'enregistre l'opération
End Sub