Créer un raccourci de son application à partir de l'application elle-même.

Créer un raccourci de son application à partir de l’application elle-même.

Article mis en ligne le 17 novembre 2006

dernière modification le 12 décembre 2006

par Patrice MOREL

Access 97

Access 97 | Compatible |

Access 2003

Access 2003 | Non testé |

Fonction d’un module :

Public Sub Raccourci()

Dim WshShell As Object
Dim strdesktop As String
Dim oshellLink As Object

Set WshShell = CreateObject("WScript.Shell")
' Récupère le chemin du bureau
strdesktop = WshShell.specialFolders("Desktop")
'libellé du Raccourci
Set oshellLink = WshShell.CreateShortcut(strdesktop & "\Zeste.lnk")

With oshellLink
'//chemin du raccourci :
.targetPath = "C:\VitamineC\Zeste_V1_03.mdb"
'//1 = ouverture en fenêtre normale (3 maximized, 7 minimized)
.WindowStyle = 1
'//raccourci clavier :
.HotKey = "CTRL+SHIFT+Z"
'//icône du Raccourci :
.IconLocation = "C:\VitamineC\Images\Lemon.ico"
'//Texte info-bulle du Raccourci :
.Description = "Cliquez ici pour ouvrir Zeste"
'//destination du raccourci :
.WorkingDirectory = "C:\VitamineC"
'//enregistre le raccourci :
.Save
End With

End Sub

Sur évènement d’un formulaire par exemple :

Private Sub BtnRaccourci_Click()
Raccourci
MsgBox "Votre raccourci est créé."
End Sub