Ouvrir mon programme a partir d'un icône sur le bureau

yannmusic -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,

J'ai monter un petit programme sur Microsoft Visual Basic, du genre Calculatrice,
j'aimerais l'ouvrir à partir de mon bureau, sans avoir a ouvrir Microsoft Visual Basic.

Je clique sur l'icône et boom, ma calculatrice ouvre directement!

Comment faire,

Merci :)

1 réponse

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Ouvrir un classeur, Alt F11, Insérer un UserForm, mettre un Commandbutton avec ce code: 

    Option Explicit
Dim fileToOpen, chemin As Variant
Dim WshShell, strDesktop, oUrlLink
Private Sub CommandButton1_Click()
fileToOpen = Application _
    .GetOpenFilename("All Files (*.*), *.*")
If fileToOpen <> False Then
    chemin = fileToOpen
    Else
    Exit Sub
End If
 Set WshShell = CreateObject("WScript.Shell")
  strDesktop = WshShell.SpecialFolders("Desktop")
 Set oUrlLink = WshShell.CreateShortcut(strDesktop & "" & "Monraccourci" & ".lnk") 'a adapter le nom du raccourci
  oUrlLink.TargetPath = chemin
  oUrlLink.Save
  MsgBox "Votre raccourci Monraccourci est sur votre Bureau" 'a adapter le nom du raccourci
End Sub


    0