XL 2016 Raccourci sur le Bureau pointant sur une URL

D

D.D.

XLDnaute Impliqué

• 1 Octobre 2020

• #2

Hello,

Si je fais cela:

VB:

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #3

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 :

VB:

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Octobre 2020

• #4

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

VB:

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

 

Dernière édition: 1 Octobre 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #5

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Octobre 2020

• #6

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Octobre 2020

• #7

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #8

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Octobre 2020

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Octobre 2020

• #10

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Octobre 2020

• #11

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

 

Vote positif 0 Vote négatif

F

fredl

XLDnaute Impliqué

• 1 Octobre 2020

• #12

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

 

Vote positif 0 Vote négatif