Message d'Erreur Lien Hypertexte

[BOCARAMEL]

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é)

merci de votre aide

je joins un fichier simplifié

bonne journée

 

[vgendron]

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]

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.

 

[BOCARAMEL]

Re : Message d'Erreur Lien Hypertexte

Génial à vous deux

vraiment parfait
ça fonctionne nickel

Merci et Bon week-end