Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de 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
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" <didier.n@club-internet.fr> a écrit dans le message de
news:OK9QTzv1FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour
Est-il possible de créer un raccourci sur le bureau grâce à un bouton et
une
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" a écrit dans le message de 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
Salut Jacky vraiment parfait c'est génial merci beaucoup Didier
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de 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
Salut Jacky
vraiment parfait
c'est génial
merci beaucoup
Didier
"Jacky" <nospam@bidon.fr> a écrit dans le message de news:
ek0dD6v1FHA.2704@TK2MSFTNGP10.phx.gbl...
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" <didier.n@club-internet.fr> a écrit dans le message de
news:OK9QTzv1FHA.3660@TK2MSFTNGP15.phx.gbl...
Bonjour
Est-il possible de créer un raccourci sur le bureau grâce à un bouton et
une
Salut Jacky vraiment parfait c'est génial merci beaucoup Didier
"Jacky" a écrit dans le message de news:
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" a écrit dans le message de news:
Bonjour Est-il possible de créer un raccourci sur le bureau grâce à un bouton et une