ajouter un lien dans un userform

[rem$]

bonjour à tous

je voudrais ajouter un lien hypertext vers autre un document à l'interieur d'un userform
mon userform se trouve dans un doc WORD j'espere que cela ne posera pas de pb.....

d'avance merci

Rem$

 

[rem$]

re
en fait je souhaiterai ajouter un lien vers un doc qui se trouve sur un site web

merci

 

[salim]

Bonjour rem$, et le Forum

Si j'ai bien compris ton souhait, voilà le code de Ti

D'abord il faut créer un Userform...ensuite pour cet exemple il vous faut à la base un "Label" ou un bouton...




ensuite il ne reste plus qu'à lui affecter cette procédure dans le module de l'userform...


Option Explicit
<http://www.excel-downloads.com/html/French/forum/messages/1_57994_34783.htm>

'Ti Thierry Pourtier tpourtier@wanadoo.fr 07-06-03 11:00

Private Sub LabelLien_Click()
Dim Lien As String
Lien = "http://perso.wanadoo.fr/veriland/excel/sommaire.htm"
On Error GoTo PasConnect
ActiveWorkbook.FollowHyperlink Address:=Lien, NewWindow:=True
Unload Me
Exit Sub
PasConnect:
MsgBox "Impossible d'ouvrir " & Lien
End Sub

salim

 

[rem$]

bonjour a tous, salim

merci pour le code je ne l'avais pas toruve en cherchant sur le forum
mais malheureusement il me renvoye toujours "impossible d'ouvrir ...." et pourtant le lien est bon, je n'ai pas de pb de connection, j'ai ouvert la page du site sur mon explorer pas de pb...
je ne comprend pas ce qui se passe......

merci
Rem$

 

[salim]

Re rem$

Ah bon, je viens d'essayer plusieurs fois( à partir de Word ) sur différents liens et tout fonctionne correctement, je ne vois pas peut être qu'en tu as copier coller le code, ou si tu l'as retaper une erreur, une lettre en moins ou un truc de ce genre c'est passé, sinon je ne vois pas désolé.

salim

 

[michel]

bonjour Rem§ , bonjour Salim

si ton USF est dans Word , il faut remplacer
ActiveWorkbook.FollowHyperlink
par
ActiveDocument.FollowHyperlink

Dim Lien As String
Lien = "http://www.excel-downloads.com" ' adapter le chemin
ActiveDocument.FollowHyperlink Address:=Lien, NewWindow:=True


bon apres midi
MichelXld

 

[rem$]

re salim, michel

évidemment poukoi je n'y ai pas pensé......

merci michel pour ta remarque qui me permet de me rappeler que j'ai encore du boulot pour être completement operationnel......même pour des choses simples......

bonne journée
merci à vous 2

@ bientôt

Rem$