Pb lors du changement d'un lien hypertexte par une macro

[nougitch]

Bonjour à tous,

J'ai un fichier dans lequel il y a énormément de liens hypertextes qui pointent vers des fichiers situés sur un serveur.

Je voudrais mettre à jour ce lien grâce à une macro.

Au départ, les liens sont du type :
../../XXX/YYY/ZZZ.pdf

Mon nouveau lien doit être du type :
\\SERVEUR/AAA/BBB/XXX/YYY/ZZZ.pdf

Or, à chaque fois que j'exécute mon code, Excel me modifie ce lien et m'affiche :
file://\\SERVEUR\AAA\BBB\XXX\YYY\ZZZ.pdf

J'ai l'impression que c'est ce file:// qui pose problème.
Avez-vous une idée pour solutionner ce problème ?
Merci par avance.

Voici mon code :

Sub ChangeHyperlinks()

Dim Cell As Range
Dim Option1 As String
Dim Replace1 As String

Replace1 = "\\SERVEUR/AAA/BBB/XXX/"

On Error Resume Next

For Each Cell In Range("K2:K" & Range("K65536").End(xlUp).Row)
    Option1 = Left(Cell.Hyperlinks(1).Address, 11)
    If Option1 = "../../XXX/" Then
        Cell.Hyperlinks(1).Address = Replace(Cell.Hyperlinks(1).Address, Option1, Replace1)
        Cell.Hyperlinks(1).TextToDisplay = Replace(Cell.Hyperlinks(1).Address, Option1, Replace1)
    End If
Next Cell

End Sub

 

[Compte Supprimé 979]

Re : Pb lors du changement d'un lien hypertexte par une macro

Salut Nougitch,

Tu ne peux pas appeler un fichier sur un serveur par la commande :

\\SERVEUR/AAA/BBB/XXX/YYY/ZZZ.pdf

Ton lien doit être composé d'anti-slash uniquement.

Ta variable Replace1 doit être : \\SERVEUR\AAA\BBB\XXX\ZZZ.PDF

Voilà 😉