Lien Hypertexte : Pointer sans ouvrir la cibleRésolu

Question

Bonjour !

Dans une feuille Excel, j'ai listé des fichiers, j'ai fait un code VB pour qu'à chaque fichier soit associé le lien hypertexte lui correspondant...

J'ai réussi quand on clique sur les liens hypertextes soit à ouvrir le fichier, soit à ouvrir le répertoire où se trouve le fichier...

Mais, comme certains répertoires comportent énormément de fichiers, je souhaiterais savoir s'il serait possible quand le lien a ouvert le répertoire, de pointer vers le fichier sans l'ouvrir, en fait, uniquement le sélectionner (mise en surbrillance).

Si quelqu'un a une idée ?

Merci...

Scoubi7 · Accepted Answer

Ok ça marche ! J'imaginais qu'il y aurait peut-être quelquechose de plus propre qui puisse s'intégrer dans le code des liens hypertexte....mais bon !

Merci pour ton aide !

Si ça intéresse quelqu'un :
Il faut associé aux éléments voulus (pour moi, une procédure se lance quand je clique sur une cellule, mais ça peut être un bouton, etc...), la ligne suivante :

Déclaration = Shell("Explorer.EXE /SELECT,C:\Chemin\Fichier.xxx", argument)

En Violet: vos propres paramètres.
Argument doit être remplacé par :
      vbHide ou 0 = La fenêtre est masquée et activée. 
      vbNormalFocus 1 = La fenêtre est activée et rétablie à sa taille et à sa position d'origine. 
      vbMinimizedFocus = 2 La fenêtre est affichée sous forme d'icône et activée. 
      vbMaximizedFocus = 3 La fenêtre est agrandie et activée. 
      vbNormalNoFocus = 4 La fenêtre est rétablie à sa taille et à sa position les plus récentes. La fenêtre active reste active. 
      vbMinimizedNoFocus = 6 La fenêtre est affichée sous forme d'icône. La fenêtre active reste active.

Renfield · Answer

Explorer.exe /SELECT,C:\MonDossier\Mon Arorescence\MonFichier.txt

Scoubi7 · Answer

Merci pour ta réponse mais, j'ai fait plusieurs essais pour l'incorporer à ma formule de type :

Worksheets(1).Hyperlinks.Add Anchor:=Cellule, _
        Address:=Chemin _
        TextToDisplay:=Cellule.Text

Et sans succès, pourrais-tu incorporer ta solution à ma formule ?

Merci...

Renfield · Answer

je t'ai pas filé de code.
juste la syntaxe a utiliser pour demander la selection d'un fichier à l'explorateur.

Scoubi7 · Answer

C'est gentil... mais si je peux pas l'intégrer à ma feuille Excel...ça me sert pas à grand chose ! Non ?

Scoubi7 · Answer

Ha ! J'avais pas tout saisi....

Tu veux peut-être qu'au lieu de créer un lien hypertexte, quand je clique sur la cellule, ça me lance explorer avec ces options...je teste...

Renfield · Answer

tu as tout saisi. ravi de voir que tu as fouiné, et que tu n'attendais pas du tout cuit.

Scoubi7 · Answer

Mais tu es sure qu'on ne peut pas l'intégrer aux liens hypertextes ?

Scoubi7 · Answer

Je ne m'attendais pas a du tout cuit, mais tu aurais quand même pu être plus précis car je ne savais pas si tu avais mal compris ma question ou si tu étais trompé...

Renfield · Answer

on peut faire :
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Shell "explorer.exe /SELECT," & Target.Address, vbNormalFocus
End Sub

mais le fichier s'ouvre, en parallèle... j'arrive pas a l'empecher de le faire.

Lien Hypertexte : Pointer sans ouvrir la cible

10 réponses

Votre réponse

Discussions similaires