[Résolu] [Calc] extraire données raccourcis

[MrPropre]

Bonjour,

je recherche le code macro sous calc (openoffice) qui me permet d'extraire les données URL et le nom d'un raccourcis.

voir exemple ci dessous, je voudrai extraire l'URL: http://www.google.fr et le Nom: Google du raccoucis internet Google

Merci.

[Dude]

Salut,

Quel est l'intérêt de faire cela avec Calc ? D'autant que ce type de raccourci est propre à Windows alors que OOo est multi-plateformes.

Voici un code simple à adapter :

Code: Tout sélectionner   AgrandirRéduire

Sub CibleRaccourciWindows
   sFic = ConvertFromUrl("c:\chemin\vers\raccourci\document.url")
   oleService = createUnoService("com.sun.star.bridge.OleObjectFactory")
   WSHShell = oleService.createInstance("Wscript.Shell")
   oLnk = WSHShell.CreateShortcut(sFic)
   msgbox "La cible pour " & sFic & " est : " & oLnk.TargetPath
End Sub

[cthiegan]

Bsr Dude.

Ok merci çà marche, c'est ce que je voulais.

En fait je veux lister tous mes raccoucis internet et les inscrire sur un onglet calc, les voir sur une seule feuille.


Merci A+