Mutation intempestive des liens hypertexte

[AlibiNatus]

Bonjour à tous,

J'utilise les liens hypertextes depuis longtemps sous excel. J'ai un fichier qui en contient près de mille !!!
A ma grande surprise, la consultation de mon fichier (et des pièces rattachées) sur un autre PC m'a changé l'ensemble des références de mes liens.
Vous imaginez les dégâts : il faut que je reprenne tout !!!
Alors voici mes questions :
1/ Existe-t-il un moyen de changer la partie commune de l'énnoncé de plusieurs liens d'un coup ?
2/ Comment 'figer' mes liens de sorte qu'ils ne changent pas lorsque je change de PC ? (n'y a-t-il pas une question de relatif ou d'absolu là-dessous ?)
Merci d'avance,

AlibiNatus

 

[ODVJ]

Bonsoir,

si ça peut t'aider, voilà quelques macros simples pour obtenir ou créer les adresses des liens hypertextes.

tu devrais ainsi reconstituer tes liens.

Sub Hyperlien()
'macro pour créer les liens hypertextes sur une base libellé/adresse dans une feuille de calcul.
Dim libellé, adresse, cell
On Error Resume Next
       For Each cell In Selection
        libellé = cell.Value
        adresse = cell.Offset(0, 1).Value
        ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=adresse
       Next
End Sub

Function AdrHyperlien(cell As Range)
' restitue l'adresse du lien
       AdrHyperlien = cell.Hyperlinks(1).Address
End Function

Function SubAdrHyperlien(cell As Range)
'restitue le signet du lien
       AdrHyperlien = cell.Hyperlinks(1).SubAddress
End Function

Cordialement