XL 2016 Raccourci sur le Bureau pointant sur une URL

[fredl]

Bonjour à tous,
apres recherche sur le forum infructueuse, je me permets de faire appel à vos lumieres :
Est il possible par VBA de creer dur le bureau d'un PC un "raccourcis" vers un site web?

J'ai reussi à le faire pour un fichier avec le code suivant :
Sub Raccourcis(CheminLien As String, CheminCible As String)
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
'Set oShellLink = WshShell.CreateShortcut(strDesktop & "\sondage.lnk") '****ici, le chemin du raccourcis
Set oShellLink = WshShell.CreateShortcut(CheminLien) '****ici, le chemin du raccourcis

'**ici titre du raccourci**
'oShellLink.TargetPath = "D:\sondage" '****Ici chemin complet de la cible(ici un repertoire)
oShellLink.TargetPath = CheminCible ' idem, mais pour fichier
oShellLink.WindowStyle = 1
oShellLink.Save
End Sub

mais je n'ai rien trouvé pour pointer sur une URL...Une idée?
Merci d'avance pour votre aide.

A bientôt j'espère.
Frédéric

 

[D.D.]

Hello,

Si je fais cela:

Sub Raccourcis()
    CheminCible = "http:\\www.google.fr"
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    CheminLien = strDesktop & "\ab.lnk"
    Set oShellLink = WshShell.CreateShortcut(CheminLien)
    oShellLink.TargetPath = CheminCible
    oShellLink.WindowStyle = 1
    oShellLink.Save
End Sub

J'ai bien un raccourci (ab.lnk) pointant sur http:\\www.google.fr sur mon bureau.

J'ai du louper un truc dans ton problème.

 

[sylvanu]

Bonjour Fredl, D.D.,
un peu à labour ce soir ...
Ca, je ne connaissais pas.
Je me suis inspiré du site : http://jacxl.free.fr/cours_xl/raccourci
Avec cette petite macro toute simple :

Sub raccourcis_bureau()
Open "C:\Users\PC_PAPA\Desktop\LeMonde.url" For Output As #1
Print #1, "[InternetShortcut]"
Print #1, Chr$(10) & "URL=https://www.lemonde.fr/"
Close #1
End Sub

LeMonde sera le nom du raccourci sur le bureau
https://www.lemonde.fr/ sera le chemin web
C:\Users\PC_PAPA\Desktop\ et l'adresse du bureau.

 

[patricktoulon]

re
bonjour a tous
a ben j'aurais jamais fait comme ça
bravo sylvanu
attention tout de même a l'index de fichier qui n'est peut être pas dispo

Sub raccourcis_bureau()
dim x&
x=freefile:Open "C:\Users\PC_PAPA\Desktop\LeMonde.url" For Output As #x
Print #x, "[InternetShortcut]"
Print #x, Chr$(10) & "URL=https://www.lemonde.fr/"
Close #x
End Sub

 

[sylvanu]

Bonjour,
Tout est dans http://jacxl.free.fr/cours_xl/raccourci
Je ne suis qu'un humble utilisateur, adaptateur sans plus.
C'est joli, concis et efficace.

 

[patricktoulon]

re
j'ai édité mon poste avec une recommandation

 

[patricktoulon]

avant il y avait une page sommaire de toutes ses macros et fonctions je ne la trouve plus

 

[sylvanu]

Lors du dernier "sondage" de David j'avais émis l'idée d'une page "How to do .... "
Je pense que cela aurait pu être utile. ( comme pour les MFC,TCD,.... )
Sinon dans Utilitaires, mais c'est lourd.

 

[patricktoulon]

re
je parle du site jackxl il y avait une page sommaire vba avant (y a longtemps)elle était fort utile

 

[sylvanu]

Oups!
Sur cette page XL et VBA sont mélangés : http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_utile

 

[patricktoulon]

voila c'est ça
good man
purré ça faisait des années que je ne l'avais pas visité cette page

 

[fredl]

Trop forts DD et Sylvanu,
les 2 fonctionnent à merveille!!!
je n'ai donc que l'embarras du choix!
Encore grand merci à vous 2!