OVH Cloud OVH Cloud

UserForm: Lien dans image

1 réponse
Avatar
AnonyMouse
Bonjour,

Dans mon UserForm, j'ai ins=E9r=E9 une image. J'aimerais que=20
quand on clique sur l'image, il y ait une fen=EAtre Internet=20
qui s'ouvre vers un site.

Qqn pourrait m'aider? =E7a doit =EAtre tr=E8s simple... non?

Merci

1 réponse

Avatar
anomymousA
bonjour,

ca par exepmle

sub Image1_click

Const ImageWebsite="nom complet de ton site"

Application.ScreenUpdating = False
Workbooks.Add
Set wktempor = ActiveWorkbook
On Error GoTo errhandler

ActiveWorkbook.FollowHyperlink Address:=ImageWebsite, NewWindow:=True

wkbtempor.Close False

Application.ScreenUpdating = True

Exit Sub

errhandler:
MsgBox "Désolé , Impossible d'ouvrir le site " & ImageWebsite & vbLf &
Err.description, vbExclamation, "Erreur affichage page web"

end sub

A+


Bonjour,

Dans mon UserForm, j'ai inséré une image. J'aimerais que
quand on clique sur l'image, il y ait une fenêtre Internet
qui s'ouvre vers un site.

Qqn pourrait m'aider? ça doit être très simple... non?

Merci