Test click sur un lien hypertexte

Bonjour,

Les utilisateurs disposent d'un fichier dans lequel ils vont renseigner notamment des liens HT permettant d'ouvrir d'autres fichiers.
Lorsque je clique sur un de ces liens, il peut arriver que ce lien ne fonctionne pas. Parce que fichier inexistant ou positionné sur un répertoire non accessible.
Il s'affiche alors un message système que je souhaite éviter.

Comment faire pour afficher mon propre message d'erreur et sortir proprement du programme sachant qu'il n'est pas possible de contrôler l'existence du fichier en amont ?

Merci pour votre aide.

Bonjour,

Regarde du côté de l'aide VBA sur l'instruction On Error ;)

Sinon cette discussion peut t'aider également.

Citation:

---

Envoyé par mat955

Bonjour,

Regarde du côté de l'aide VBA sur l'instruction On Error ;)

Sinon cette discussion peut t'aider également.

---

Merci Mat.
Mais ce n'est pas cela que je cherche à réaliser.
Je souhaite juste pouvoir intercepter le message "Une erreur inattendue s'est produite" généré par un simple clique sur une cellule contenant un lien HT erroné.
Peut-être un événement BeforeClick suffirait-il mais je ne trouve rien.
Existe-t-il qqchose d'équivalent ?
Merci

L'évènement FollowHyperlink n'ayant pas de paramètre Cancel, la seule solution que je vois serait d'utiliser une macro évènementielle Worksheet_SelectionChange.
Quant l'utilisateur sélectionne une cellule, la macro vérifie si la cellule contient un lien hypertexte.
Si c'est le cas, elle vérifie la présence du fichier avec une fonction Dir renseignée par la propriété Address de l'Hyperlink.
Si le fichier n'existe pas, elle détruit l'Hyperlink.

Lire ça :
https://docs.microsoft.com/fr-fr/off...ectedfrom=MSDN
https://msdn.microsoft.com/fr-fr/lib...0(v=office.15)
https://docs.microsoft.com/fr-fr/off...p/dir-function
https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)
https://docs.microsoft.com/fr-fr/off...xcel.hyperlink
https://docs.microsoft.com/fr-fr/off...erlink.address

C'est parfait.
Comme d'habitude.

Merci Menhir