Discussion :

[macromacro]

Bonjour,

J'ai une image, et j'aimerai créer un lien hypertexte dessus.
J'aimerai cependant que lorsque nous cliquons sur le lien, cela ouvre une nouvelle fenêtre (type target="_blank").

Comment puis-je faire ?

Peut importe si c'est en macro ou non, mais je n'ai pas trouvé l'astuce pour le faire.


Merci de votre aide les zamis'
Cordialement.

[pijaku]

Bonjour,
Avez vous essayé d'insérer un lien hypertexte dans votre image?
Testez et revenez nous dire ce qui convient ou pas.

Créer un lien hypertexte vers une page Web ou un fichier existant :

1. cliquez sur l'image pour la sélectionner
2. Sous l’onglet Insertion, dans le groupe Liens, cliquez sur Lien hypertexte.
3. Sous Lier à, cliquez sur Fichier ou page Web existant(e).
4. cliquez sur Dossier actif, puis sur le fichier

Tout ce qu'il faut savoir sur les liens hypertextes...

[kiki29]

Salut, également à lire dans la FAQ : http://excel.developpez.com/faq/?page=Hyperlink

[macromacro]

Salut, également à lire dans la FAQ : http://excel.developpez.com/faq/?page=Hyperlink

Merci pour ces infos.

On peut ajouter un lien indifféremment à un objet ou à une plage.

Vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim objLink As Hyperlink
 
Set objLink = ActiveSheet.Hyperlinks.Add(Range("F2"), "d:\user\tuto.xls")
With objLink
    .SubAddress = "A1:C10"
    .Follow NewWindow:=True
End With

Ce code crée le lien est ouvre une nouvelle fenêtre contenant la cible. Astuce : Lorsqu'on modifie la cible d'un lien existant on ne modifie pas le texte du lien. Pour que celui-ci change, il faut modifier la propriété value de la cellule contenant le lien :

Vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
objLink.Address = "d:\jmarc.xls"
objLink.Range.Value = "d:\jmarc.xls"

Dans cette explication il y a deux codes. Le deuxième code permet d'ouvrir le lien en nouvelle fenêtre.
Mais concrètement, comment je fais pour réunir les deux codes ? Je n'ai pas réussi.


Il faut faire comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim objLink As Hyperlink
 
Set objLink = ActiveSheet.Hyperlinks.Add(Range("F2"), "d:\user\tuto.xls")
With objLink
    .SubAddress = "A1:C10"
    .Follow NewWindow:=True
    objLink.Address = "d:\jmarc.xls"
    objLink.Range.Value = "d:\jmarc.xls"
End With

Merci en tout cas pour vos deux réponses rapides !