Jack aime ses hyperliens Excel pour montrer qu’ils ont été visités.

Malheureusement, lorsqu’il enregistre son classeur, ils sont tous réinitialisés sur non visités. Jack se demande s’il existe un moyen de rendre le « visité »

l’état de ses hyperliens survit à l’opération de sauvegarde.

Il n’y a aucun moyen de faire cela que nous avons pu découvrir. Le plus proche que nous pouvons venir est de vérifier si un lien hypertexte est suivi ou non, puis d’indiquer en quelque sorte cet état avec une condition ou une valeur qui survit à une opération de sauvegarde. Par exemple, considérez les macros suivantes:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim wks As Worksheet     Dim hl As Hyperlink     Application.ScreenUpdating = False     For Each wks In ThisWorkbook.Worksheets         For Each hl In wks.Hyperlinks             If hl.Parent.Interior.ColorIndex = 37 Then                 hl.Parent.Interior.ColorIndex = xlNone                 hl.Parent.Style = "Followed Hyperlink"

End If         Next hl     Next wks     Application.ScreenUpdating = True End Sub
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

Target.Parent.Interior.ColorIndex = 37 End Sub

Chaque fois qu’un lien hypertexte est suivi, la deuxième macro est exécutée. Il définit la couleur de la cellule contenant le lien hypertexte. Ensuite, lorsque le classeur est enregistré, la première macro est exécutée. Il vérifie toutes les cellules contenant des hyperliens, et si leur couleur intérieure est la couleur « clé » (valeur de couleur de 37), alors le style de la cellule est défini sur un style nommé « Lien hypertexte suivi ». Ce paramètre de style pour la cellule survivra à l’opération de sauvegarde; la seule chose que vous devez faire est de vous assurer que vous avez défini le style à afficher comme vous voulez que les liens hypertexte suivis apparaissent.

Il convient de souligner que ces deux macros doivent être ajoutées au module ThisWorkbook du classeur. Pour y accéder, affichez Visual Basic Editor et double-cliquez sur le module ThisWorkbook dans l’Explorateur de projets. Vous pouvez ensuite coller les macros dans la fenêtre de code résultante.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (7198) s’applique à Microsoft Excel 2000, 2002 et 2003.