Discussion :

[maxeur]

Bonjour à tous,

Je suis novice en macro Excel et j'aimerai faire une macro afin de remplacer mes liens hypertexte.

Je m'explique

Je posède déjà un tableau excel possédant des liens hypertextes.
Pour commencer il faut que je vérifie pour toutes les cellules de mon tableau lesquelles sont des liens.
Pour celles qui sont des liens il faudrait que je supprime le début de ce qui est inscrit dans la cellule puis que je concatène le nom de mon serveur avec le texte affiché dans la cellule pour créer mon lien.

Est ce que quelqu'un pourrait me donner un coup de main

Merci d'avance pour vos réponses

[SilkyRoad]

bonjour


Un exemple à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Vérification effectuée lors de l'ouverture du classeur
Private Sub Workbook_Open()
    Dim Cible As String, Texte As String
    Dim x As Integer
    Dim Lien As Hyperlink
 
    'Boucle sur les liens hypertextes de la feuille 1
    For Each Lien In ThisWorkbook.Worksheets(1).Hyperlinks
        Cible = Lien.Address
        x = InStr(1, StrReverse(Cible), "\")
 
        Texte = Lien.TextToDisplay
        'Vérifie si les liens existants dans la feuille pointent sur le répertoire
        'contenant le classeur.
        If Left(Cible, Len(Cible) - x) <> ThisWorkbook.Path Then
            'Si le chemin est différent, la procédure modifie les liens pour qu'ils
            'pointent sur le bon dossier.
            Lien.Address = ThisWorkbook.Path & Right(Cible, x)
            Lien.TextToDisplay = Texte
        End If
    Next Lien
End Sub

michel

[maxeur]

Merci pour ta réponse

J'ai adapté ta solution qui fonctionne trés bien encore merki