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

D 17 novembre 2006 H 10:11 A Patrice MOREL

Access 97 | Compatible |
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

Dans la même rubrique

18 février 2010 – Liste déroulante

26 janvier 2010 – Requête croisée

5 mars 2008 – Evènement sur Onglet

7 février 2008 – Astuces et pièges VBA

8 décembre 2007 – Envoi de mails

Rechercher

Traducteur

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

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires