Bonjour
j'ai un fichier excel qui contient des liens hypertext pointant sur différents fichiers d'un site web, or ces adresses ont été modifiées par le propriétaire du site et je tente de les modifier dans mon fichier par une macro.
voici ma macro:
=============================
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
Dim fin As Integer
Dim val As String
Dim pos As Integer
Dim book As String
Range("C:C").Select
fin = Selection.End(xlDown).Row
For i = 0 To fin
ActiveCell.Offset(1, 0).Select
val = ActiveCell.Value
val = Replace(val, "/b", "/B_")
pos = InStr(val, "/B_") + 3
book = Mid(val, pos, 3)
val = Replace(val, book, book & "_0_0_0")
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=val, TextToDisplay:=val
Next i
===============================
or lorsque je pointe une cellule contenant un lien modifié, celui-ci indique: file:///monchemin\l'URL
Les liens cherchent donc un fichier sur mon disque et non une url.
Toute idée serait bienvenue