Message d'Erreur Lien Hypertexte

BOCARAMEL

XLDnaute Occasionnel
Bonjour à tous, :)

J'ouvre des documents depuis un userform avec des lien hypertextes
serait il possible quand le lien ne fonctionne pas ou que le document ne s'affiche pas d'avoir un message d'erreur style (msgbox) plutot qu'un débogage (impossible d'ouvrir le fichier spécifié) :confused:

merci de votre aide

je joins un fichier simplifié

bonne journée
 

Pièces jointes

  • lien_hypertext.xls
    43 KB · Affichages: 36

vgendron

XLDnaute Barbatruc
Re : Message d'Erreur Lien Hypertexte

salut..
ca tombe bien. je viens juste d'avoir le meme besoin:
modifie ton code comme ceci. (par exemple)

Private Sub label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim num_ligne_lien As Integer
num_ligne_lien = UserForm1.TextBox1.Value
lien = Sheets("feuil1").Cells(num_ligne_lien, "A").Value
On Error GoTo errorhandler
ActiveWorkbook.FollowHyperlink Address:=lien
UserForm1.Hide
Exit Sub

errorhandler:
MsgBox ("n'existe pas")
End Sub
 

xhudi69

XLDnaute Accro
Re : Message d'Erreur Lien Hypertexte

Bonjour BOCARAMEL, vgendron

j'arrive trop tard, vu mon âge ;)

en PJ

@+

PS: je n'avais pas mis MSG au bon endroit.
 

Pièces jointes

  • BOCARAMEL_lien_hypertext.xlsm
    22.4 KB · Affichages: 37
Dernière édition:

Discussions similaires

Réponses
7
Affichages
562

Statistiques des forums

Discussions
312 963
Messages
2 093 992
Membres
105 906
dernier inscrit
aifa