Discussion :

[Papy Turbo]

N'ayant pas trouvé le mot 'shortcut' dans la faq/sources/contributions, je vous propose la petite contribution suivante, pour vos programmes d'installation (copié depuis : http://www.developpez.net/forums/d1197923/logiciels/microsoft-office/access/vba-access/creer-raccourci-vers-dossier/#post6565173):

Pour créer un raccourci, en bref,
- ajoute une référence à WsShell : Windows Script Host Object Model
Dans ta fonction,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim WshShell as IWshRuntimeLibrary.WsShell
Dim MyShortcut as IWshRuntimeLibrary.WshShortcut
 
    Set WsSHell = New IWshRuntimeLibrary.WsShell
    Set MyShortcut = WsShell.CreateShortcut(Emplacement & "\" & NomRaccourci & ".lnk"
    With MyShortcut
        .TargetPath = "Chemin et nom de la cible" 'le dossier ou fichier à ouvrir, l'application à lancer...
        .WorkingDirectory = "Chemin de la cible"
        '.Arguments = ... 'inutile dans ton cas.  Peut être un fichier à ouvrir avec l'application dans Targetpath, ou tous arguments à lui passer...
        .IconLocation = "emplacement + nom de l'icône dans ton dossier 'images'"
        'et toutes autres propriétés du raccourci...
        .Save
    End With

- Pour l'emplacement sur le bureau, tu peux faire un GetDesktopDir()... ou GetSpecialFolders...
- Pour supprimer ce raccourci, si besoin, un simple Kill...

[marot_r]

[loufab]

Bonjour,
Petite variante.

Directement en VBS dans un fichier texte que l'on lance depuis VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
set WshShell = WScript.CreateObject("WScript.Shell" ) 
strDesktop = WshShell.SpecialFolders("Desktop" ) 
strCurrentDir = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
strAccessDir = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\Microsoft Office\Office12\"
 
set oShellLink = WshShell.CreateShortcut(strDesktop & "\BaseAccess.lnk" ) 
 
oShellLink.TargetPath = """" & strAccessDir & "MSACCESS.EXE"""
oShellLink.WindowStyle = 1 
oShellLink.IconLocation = strAccessDir & "MSACCESS.EXE, 0"
oShellLink.Description = "Raccourci vers ma base" 
oShellLink.WorkingDirectory = strcurrentdir
oShellLink.Arguments =  " """ &  strcurrentdir & "fichier.accdb"" /wrkgrp """ & strcurrentdir & "prot.mdw"" /user ""admin"" /cmd ""param"""   
oShellLink.Save

Puis on le lance depuis VBA :

Code :

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

Shell Environ("SystemRoot") & "\system32\cscript.exe " & CurrentProject.Path & "\install_raccourci_Access.vbs"

Cordialement,

[Tofalu]

Alors Etienne, on ne parle plus français ?

Il suffisait de chercher raccourci au lieu de shortcut :

http://access.developpez.com/faq/?page=Divers#ShortCut

En place dans la FAQ depuis 2006

[Papy Turbo]

Si, en plus du VBA, faut apprendre le , pffff!

Et, en prime, le lien de la FAQ s'intitule "Divers#Shortcut"

En tout cas, j'ai vérifié ce matin, et la recherche dans la FAQ renvoie bien "Comment créer un raccourci ?", en 1ère réponse, à la question "shortcut".
Si cette recherche a été améliorée depuis mars 2012, un grand bravo aux développeurs du site

[Tofalu]

Mouarf, je n'avais pas vu que cela datait de 2012