shortcuts

Peut-être avec :
Range("A1").Hyperlinks(1).Address
Et en bidouillant la chaîne obtenue s'il faut absolument
séparer nom et path...
A+

V.

-----Message d'origine-----
Quelqun connait-il le moyen de récupérer le nom et le
path

du fichier cible d'un raccourci (.lnk) en vba excel (97
compatible) ?

Merci d'avance.
.

Bonjour.

Avec Shell.Application, les raccourcis du bureau.

Sub RecupShortCutsurBureau()
Dim ObjShell, ObjFolder
Set ObjShell = CreateObject("Shell.Application")
For Each ObjFolder In ObjShell.NameSpace(0).Items
If ObjFolder.IsLink Then
MsgBox ObjFolder.Path & vbNewLine & ObjFolder.GetLink.Path
End If
Next
Set ObjFolder = Nothing
Set ObjShell = Nothing
End Sub

Alain CROS.

"tdid" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 093201c3d6a2$6e882cd0$a501280a@phx.gbl...
Quelqun connait-il le moyen de récupérer le nom et le path
du fichier cible d'un raccourci (.lnk) en vba excel (97
compatible) ?

Merci d'avance.

Je parle ici des shortcuts windows et pas des hyperliens
dans excel.
Soit, récupérer c:file.xxx à partir d'un shortcut du
genre c:repshortcut.lnk qui pointe dessus.

Merci quand même

-----Message d'origine-----
Peut-être avec :
Range("A1").Hyperlinks(1).Address
Et en bidouillant la chaîne obtenue s'il faut absolument
séparer nom et path...
A+

V.

-----Message d'origine-----
Quelqun connait-il le moyen de récupérer le nom et le
path

du fichier cible d'un raccourci (.lnk) en vba excel (97
compatible) ?

Merci d'avance.
.

.

Bonjour,

Pour retrouver la cible d'un raccourci quelconque :

'======================= Function CibleRaccourci(NomRacc$)
Dim WshShell As Object, oShellLink As Object

Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut(NomRacc)
CibleRaccourci = oShellLink.TargetPath

End Function 'fs

Sub test()
Dim sLnk$
sLnk = "C:Documents and SettingsAll UsersMenu Démarrer" & _
"ProgrammesAccessoiresCalculatrice.lnk"
MsgBox CibleRaccourci(sLnk)
End Sub
'========================
L'accessibilité de ce code (qui utilise le Windows Script Host Object Model) ne
dépend pas de ta version d'Excel mais de celle de Windows (il faut au moins, je
pense, Windows 98 ou NT 4.0)

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Quelqun connait-il le moyen de récupérer le nom et le path
du fichier cible d'un raccourci (.lnk) en vba excel (97
compatible) ?

Merci d'avance.