Raccourci sur le bureau avec VBA

Le
Didier Novarin
Bonjour
Est-il possible de créer un raccourci sur le bureau grâce à un bouton et une
macro VBA ?
Je vous remercie
Didier

  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Jacky
Le #3210351
Bonjour
Ceci:
'-----------
Sub CreerRaccourci()
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "titre.lnk")
'**ici titre du raccourci**
oShellLink.TargetPath = "d:chemin" '****Ici chemin complet de la
cible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub
'-------------
Que l'auteur, dont je n'ai pas noté le nom veuille bien m'en excuser.
JJ

"Didier Novarin" news:
Bonjour
Est-il possible de créer un raccourci sur le bureau grâce à un bouton et
une

macro VBA ?
Je vous remercie
Didier




Didier Novarin
Le #3210321
Salut Jacky
vraiment parfait
c'est génial
merci beaucoup
Didier

"Jacky"
Bonjour
Ceci:
'-----------
Sub CreerRaccourci()
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "titre.lnk")
'**ici titre du raccourci**
oShellLink.TargetPath = "d:chemin" '****Ici chemin complet de la
cible
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub
'-------------
Que l'auteur, dont je n'ai pas noté le nom veuille bien m'en excuser.
JJ

"Didier Novarin" news:
Bonjour
Est-il possible de créer un raccourci sur le bureau grâce à un bouton et
une

macro VBA ?
Je vous remercie
Didier








Poster une réponse
Anonyme