Les liens hypertexte permettent par un simple clic sur un texte, sur une image,
d'accéder à un autre fichier, ou à un autre endroit du fichier.
Rien de plus simple que de créer un lien vers une page Web sous Excel :
Sélectionner la cellule ou l'image qui doit servir de support au lien
Insertion / lien hypertexte / texte de l'adresse du site (adresse commençant généralement par http...).
Au lieu d'une URL de site Web, on peut utiliser une adresse de messagerie. Il suffit d'inscrire comme "texte de
l'adresse du site", mailto:Amélie Poulain.
En cliquant sur le lien hypertexte ainsi créé, on ouvre la messagerie sur un message
adressé à Amélie Poulain.
On peut même renseigner depuis Excel les différents champs du message :
mailto:Amélie Poulain?subject=bonjour&body=Amélie, vous avez de beaux yeux !
L'insertion de liens hypertexte sur une cellule, un objet ou une image peut
être réalisée par VBA.
Ainsi, Sheets(2).Hyperlinks.Add Sheets(2).Range("A5"), "http://www.boursorama.fr/"
va créer dans la cellule A5 de la feuille 2, un lien hypertexte pointant vers Boursorama.
De même, pour créer un lien ancré sur la forme "Rectangle 2" de la feuille active :
ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes("Rectangle 2"), "http://boursorama.fr/"
On peut ouvrir avec VBA le fichier vers lequel pointe un lien hypertexte en utilisant la méthode
Follow :
Cells(1).Hyperlinks(1).Follow va ouvrir le lien hypertexte de la cellule A1.
Sheets("feuil2").Cells.Hyperlinks(2).Follow va ouvrir le deuxième lien de la page "Feuil2"
Pour ouvrir le lien dans une nouvelle fenêtre, il suffit d'ajouter "True" :
Sheets("feuil2").Cells.Hyperlinks(2).Follow True
Pour ouvrir une URL quelconque, on utilise FollowHyperlink :
ActiveWorkbook.FollowHyperlink "http://boursorama.fr".
et dans une nouvelle fenêtre :
ActiveWorkbook.FollowHyperlink "http://boursorama.fr", , True.