Chemin incorrect avec un Lien Hypertext

Bonjour le forum

j'ai un fichier avec, dans des cellules, le chemin complet d'un fichier ; par un lien hypertext, je souhaite l'atteindre mais ceux-ci ont changés et je voudrai systématiser la correction.

J'ai joint un fichier avec mon problème exposé...

Merci d'avance pour votre aide.

bonsoir,

ce sujet a été traité récemment sur ce forum

regarde ici

https://forum.excel-pratique.com/excel/macro-pour-modifier-lien-hypertexte-t43527.html

Bonjour

désolé mais en utilisant les codes du post que tu m'as conseillé, je n'obtiens pas le résultat escompté....

Si quelqu'un a une idée à mon pb, je suis preneur....

Bonjour,

A tester.

Tu sélectionnes ta plage de liens et tu lances la macro.

Cdlt

Option Explicit
Sub Modifier_lien()
Dim Doc As Workbook
Dim Cell As Range
Dim OldStr As String, NewStr As String
Dim OldHp As String, NewHp As String

'Chemin à modifier
OldStr = "///C\Users\Commercial.SIF\Destop\"
NewStr = "///\\sif_svr\commun\"
With Application
        .ScreenUpdating = False
        .Calculation = xlManual
    End With
    Set Doc = Application.ActiveWorkbook
    For Each Cell In Selection
        'Verifie si la cellule contient des liens hypertexte
        If Cell.Hyperlinks.Count > 0 Then
            'Recupère l'adresse du lien sous forme de chaine
            OldHp = Cell.Hyperlinks(1).Address
            'Remplace l'ancienne chaine par la nouvelle
            NewHp = Replace(OldHp, OldStr, NewStr)
            'Supprime tous les liens hypertexte de la cellule
            Cell.Hyperlinks.Delete
            'Affecte le nouveau lien hypertexte
            Doc.ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=NewHp
        End If
    Next Cell
    Application.Calculation = xlAutomatic
End Sub

Merci Jean -Eric,

quand j'execute ton code, les liens sont réinitialisés mais pas modifiés, en laissant la souris sur le premier, tu remarqueras que c'eest toujours l'ancien lien actif.

bonjour,

il me semble qu'il manque un "k" dans desktop et donc le remplacement ne se fait pas.

Re,

Testes:

OldStr = "C:\Users\Commercial.SIF\Desktop\"

Bonjour ,

j'ai essayé en modifiant le code, mais rien y fait, cela ne marche pas ... quelqu'un a t il une idée ??

cordialement,

F. AUDOUY