Application créant raccourci sur le bureau

Salut,

Pour la création de raccourcis tu peux utiliser l'interface IShellLink

Plus de détails :
https://docs.microsoft.com/en-us/

bonne chance

Merci pour cette réponse.

sur un autre forum j'ai trouvé ce morceau de code qui semble convenir :

Dim Wsh As New WshShell

DesktopPath = Wsh.SpecialFolders("Desktop")
Set Shortcut = Wsh.CreateShortcut(DesktopPath & "\Test.lnk")
With Shortcut
    .TargetPath = App.EXEName
    .Description = "Mon Programme"
    .WindowStyle = 4
    .Save
End With

Le simple problème est que je ne sais pas comment l'utiliser. D'après ce que j'ai compris, je dois l'enregistrer en .vbs avec un éditeur de script et le convertir en .exe grâce à un convertisseur vbs to exe.
Pouvez vous me confirmer cela ?

Salut,

Voici un code testé :

'--------------------------------------------------------
'|
'| pour Déterminer le répertoire du bureau
'|
'--------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
strDesktopPath = WshShell.SpecialFolders("Desktop")

'--------------------------------------------------------
'|
'| pour Création du lien sur le bureau du programme Bloc-notes(NotePad)
'|
'--------------------------------------------------------
Set objShortcutLnk = WshShell.CreateShortcut(strDesktopPath & "\Test.lnk")
objShortcutLnk.TargetPath = "notepad"
objShortcutLnk.Save

Bonne chance.