RÉCUPÉRER LES RACCOURCIS DU BUREAU (VBA)

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 20 janv. 2007 à 22:26
cs_jnm Messages postés 1 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 12 avril 2007 - 12 avril 2007 à 12:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41185-recuperer-les-raccourcis-du-bureau-vba

cs_jnm Messages postés 1 Date d'inscription mercredi 27 avril 2005 Statut Membre Dernière intervention 12 avril 2007
12 avril 2007 à 12:10
Bonjour,
Il suffit modifier une ligne est le programme affiche tout, même les raccourcis qui pointent sur réseau.

For Each Var_Item In Obj_Folder.Items
If Var_Item.IsLink Then
Combo1.AddItem Var_Item.GetLink.Path & ""
End If
Next
leSaleGauSS Messages postés 148 Date d'inscription samedi 4 novembre 2006 Statut Membre Dernière intervention 4 décembre 2008
4 févr. 2007 à 00:51
Salut, si tu as besoin de plus d'info je te conseile de jeter un coup d'oeil à ça :
http://www.vbfrance.com/infomsg_SUPPRESSION-ICONE-SUR-BUREAU_841388.aspx#4
cs_The Mailman Messages postés 4 Date d'inscription samedi 20 janvier 2007 Statut Membre Dernière intervention 11 juin 2008
21 janv. 2007 à 10:04
Désolé, le but premier de ce code est de récupérer les raccourcis "répertoires" uniquement. Je n'ai pas testé d'autres applications.
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
20 janv. 2007 à 22:26
Salut,

je viens de tester ton code, et je voudrais te faire part d'une chose : lorsque les cibles des raccourcis sont situés sur un (ou des) lecteur réseau, beh le résultat ne s'affiche pas.

@++