Discussion :

[graphikris]

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

[eric4459]

Bonjour vous pouvez essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement
Eric

[graphikris]

Cela ne fonctionne pas.

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

=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.

[eric4459]

En fait ce serait plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[graphikris]

J'ai mis ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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.

[Philippe Tulliez]

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.

[graphikris]

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