Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel [XL2002] valeur Cible

[XL2002] valeur Cible

2 réponses
Avatar
xyzDaniel
Bonjour =E0 tous.
Sur un clic droit r=E9alis=E9 sur une ic=F4ne de bureau s'ouvre=20
la fen=EAtre <Propri=E9t=E9s de nom_ic=F4ne>.

Savez-vous comment r=E9cup=E9rer, lors d'une ex=E9cution du=20
programme, la valeur du champ <Cible> ?
ou bien existe-t-il un autre moyen d'acc=E9der =E0 ce chemin=20
complet ?
(je connais le nom du programme en .XLS, mais pas son=20
emplacement).
Merci beaucoup.
Daniel
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Frédéric Sigonneau
Bonsoir,

Une manière de faire pour trouver la cible d'un raccourci placé sur le bureau :

'=========================== Function CibleRaccourci(NomRacc$)

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "" & NomRacc)
CibleRaccourci = oShellLink.TargetPath

End Function

Sub test()
nomraccourci$ = "MonClasseur.lnk" 'à adapter...
MsgBox CibleRaccourci(nomraccourci)
End Sub
'============================
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 !


Bonjour à tous.
Sur un clic droit réalisé sur une icône de bureau s'ouvre
la fenêtre <Propriétés de nom_icône>.

Savez-vous comment récupérer, lors d'une exécution du
programme, la valeur du champ <Cible> ?
ou bien existe-t-il un autre moyen d'accéder à ce chemin
complet ?
(je connais le nom du programme en .XLS, mais pas son
emplacement).
Merci beaucoup.
Daniel


Avatar
xyzDaniel
Merci à tous.
ça marche
Daniel
-----Message d'origine-----
Bonsoir,

Une manière de faire pour trouver la cible d'un raccourci
placé sur le bureau :


'======================== ====
Function CibleRaccourci(NomRacc$)

Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop
& "" & NomRacc)

CibleRaccourci = oShellLink.TargetPath

End Function

Sub test()
nomraccourci$ = "MonClasseur.lnk" 'à adapter...
MsgBox CibleRaccourci(nomraccourci)
End Sub
'======================== =====

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 !


Bonjour à tous.
Sur un clic droit réalisé sur une icône de bureau
s'ouvre


la fenêtre <Propriétés de nom_icône>.

Savez-vous comment récupérer, lors d'une exécution du
programme, la valeur du champ <Cible> ?
ou bien existe-t-il un autre moyen d'accéder à ce
chemin


complet ?
(je connais le nom du programme en .XLS, mais pas son
emplacement).
Merci beaucoup.
Daniel
.