Macro double clic

Bonjour,

Je cherche a créer une macro qui me permettrait ,grace à un clic sur un bouton, a faire un double clic sur une cellule car dans cette cellule j'ai un lien hypertexte vers un document Word. Ce lien hypertexte texte fait référence a une formule qui va cherche dans une autre feuille, une colonne nommée DISK
le premier clic permet de sélectionner la cellule et le deuxième a ouvrir le lien hypertexte.

Slts

Bonjour vous pouvez essayer ceci :

Code:

---

1 2 3

Sub Ok_Button_Click() ActiveWorkbook.Cells(n° de ligne, N° de colonne).FollowHyperlink "votre lien hypertexte" End Sub

---

Cordialement
Eric

Cela ne fonctionne pas.

J'ai une liste déroulante en D25 et en D28 j'ai la formule suivante :

Citation:

---

=LIEN_HYPERTEXTE(Disk & D25 & ".doc")

---

Disk étant une plage nommée pour indiquer le chemin où se trouve les liens hypertexte qui sont au nombre de 500.

En fait ce serait plutôt

Code:

---

1 2 3

Sub CommandButton1_Click() ActiveWorkbook.FollowHyperlink "votre lien hypertexte" End Sub

---

Sans devoir passer par la cellule qui contient l'hypertexte

Eric

Bonjour,
Je tentais de vous aider pour un lien hypertexte (d'après la formulation de votre demande), mais pour 500 c'est différent....:?
Joignez un fichier, il y aura surement quelqu'un pour vous aider.
Eric

J'ai mis ceci :

Code:

---

1 2 3

Sub CommandButton1_Click() ActiveWorkbook.FollowHyperlink (Disk & D25 & ".doc") End Sub

---

bug sur la plage nommée DISK

Je pense que j'ai dû mal m'expliquer dans mon post "1

Je reprend donc le pb. J'ai un bouton associé à une macro qui doit, lorsque je clique dessus, ouvrir un lien hypertexte sous word.
En feuille 1, j'ai en colonne B (nommée FP) dans chaque cellule (B1:B500) un lien hypertexte vers un document Word
En feuille 2, j'ai une liste déroulante (en D25) en référence a ma feuille 1 colonne B.
Toujours en Feuille 2 cellule D28, j'ai la formule suivante :

Code:

---

=LIEN_HYPERTEXTE(Disk & D25 & ".doc")

---

Disk étant une plage nommée en feuille 3 faisant référence au disque sur lequel se trouve mes documents Word (Clé USB [F], Disque serveur de l'entreprise [S], Disque dur de mon PC [D])

En résumé lorsque je clique sur le bouton situé sur ma feuille 2, celui ci doit déclenché une macro permettant d'ouvrir le lien se trouvant en D28. Si je sélectionne un autre lien grace à la liste déroulante en D25 et que je reclique sur le bouton, la macro doit ouvrir cet autre lien hypertexte.

Cordialement.

Bonjour,
Il me semble être déjà intervenu dans cette discussion traitant de la même problématique.
Il faudrait savoir déjà si manuellement cela fonctionne.

Bonjour Philippe,
Effectivement tu es deja intervenu sur cette discussion dans un autre post et manuellement tout fonctionne tres bien.
Je voudrais juste mettre en ecriture blanche et fond blanc la cellule D28 et la verrouiller puis associer un bouton macro pour déclencher le lien hypertexte ou si c'est trop compliquer, activer le lien hypertexte a chaque changement dans la liste deroulante.

Merci

Bonjour,
En $D$25, tu as une liste déroulante et $D$28, tu as une formule

Code:

---

=LIEN_HYPERTEXTE(Disk & D25 & ".doc")

---

et tu souhaites cliquer sur un bouton pour enclencher le lien.
J'avoue ne pas trop comprendre parce-qu'un simple clic sur la cellule $D$28 te permettrait de le faire mais bon chacun son truc.

Je te propose donc une solution automatique basée sur une procédure événementielle.
Ma proposition basée sur ma réponse donnée dans cette contribution dont le titre est lien hypertexte dans une liste déroulante de choix quant à la manière de gérer la liste déroulante.
Pour l'exemple, nous allons garder uniquement la liste déroulante qui se trouve sur la cellule $D$25 lorsque l'on change de choix on déclenche la procédure événementielle Worksheet_Change

Code de la procédure à placer dans le module de la feuille où se trouve la liste déroulante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) Dim Url As String, rng As Range, rngTxt As Range If Target.Address = "$D$25" Then With ThisWorkbook Set rng = .Names("dbLink").RefersToRange Set rngTxt = .Names("dbLink_Txt").RefersToRange End With With Application.WorksheetFunction Url = .Index(rng, .Match(Target.Value, rngTxt, 0), 2) End With ThisWorkbook.FollowHyperlink Url End If End Sub

---

Plus besoin de cellule $D$28 évidemment ni de la formule qui s'y trouve.