Exemple

L’exemple suivant permet :

  • de supprimer tous les liens hypertexte d’une feuille de calcul,

  • d’ajouter un lien hypertexte dans une cellule sélectionnée par l’utilisateur,

  • d’afficher le document cible du lien hypertexte.

Sub Lien_HyperTexte()  
Dim oShtEmployes As Worksheet  
Dim oLnk As Hyperlink  
Dim oRng As Range 
   
' Supprime tous les liens hypertexte de la feuille  
Set oShtEmployes = ThisWorkbook.Sheets("Employés")  
For Each oLnk In oShtEmployes.Hyperlinks  
    oLnk.Delete  
Next oLnk  
   
' Sélection de la cellule par l'utilisateur  
Set oRng = Application.InputBox("Sélectionner la cellule 
pour le lien hypertexte", , , , , , , 8)  
   
' Si sélection de plusieurs cellules, on ne prend que la première 
If oRng.Cells.Count > 1 Then  
   Set oRng = oRng.Cells(1, 1)  
End If  
   
' Ajoute un lien hypertexte dans la première cellule sélectionnée 
oRng.Value = "Lien sur le classeur publié"  
oShtEmployes.Hyperlinks.Add Anchor:=oRng, Address:="Employes.html" 
   
' Affiche le document cible du lien hypertexte  
oShtEmployes.Hyperlinks(1).Follow  
 
End Sub 
couv_RI21EXCV.png

Découvrez 

le livre :

Aussi inclus dans nos :

Précédent
L'objet HyperLink
Suivant
Présentation des API