Modification de liens hypertext dans Excel par VBA

Version imprimable

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:

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

26/01/2016, 20h52
Sebphyto

Salut JDP,
SI je copie ton code seul dans une sub "test", il me renvoit bien une URL, et non un chemin???
Ton code fourni est-il complet?
seb
26/01/2016, 22h48
JDP91

Bonsoir
Oui c'est l'intégralité du code. lorsque je regarde le lien dans excel (Ctrl + k) je vois bien le lien url (www.....) dans adresse et dans texte à afficher mais l'infobulle est bien comme je l'ai dit "file:///mon chemin\www...."

JD
27/01/2016, 07h48
JDP91

Citation:

Envoyé par JDP91

Bonsoir
Oui c'est l'intégralité du code. lorsque je regarde le lien dans excel (Ctrl + k) je vois bien le lien url (www.....) dans adresse et dans texte à afficher mais l'infobulle est bien comme je l'ai dit "file:///mon chemin\www...."

JD

Bonjour
je viens de remarquer que les / présents dans mon URL sont, dans l'infobulle montrant le lien en passant sur la cellule, transformés en \, alors que dans le Ctrl +k ils sont bien / et lorsque je copie L’URL présent dans la case adresse du Ctrl +k sur lui-même, l'infobulle devient OK (avec les bon /, donc http://www... et plus file:///www...). Bizarre!!!

Bonjour
problème réglé (mais je ne m'explique pas les phénomènes constatés). J'ai simplement rajouté "http://" devant l'URL. voir code modifié:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro1()
'
' Macro1 Macro
'
 
Dim fin As Integer
Dim val As String
Dim pos As Integer
Dim book As String
Dim pre As String
Dim val1 As String
pre = "http://"
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")
val1 = Replace(val, val, pre & val)
 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=val1, TextToDisplay:=val, ScreenTip:=val1
Next i
'
End Sub

27/01/2016, 09h19
Sebphyto

Re,
C'est parfait alors, cela t'as permis de te poser les bonnes questions....;)
A+ seb