Discussion :

[JDP91]

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

[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

[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

[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!!!

[JDP91]

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 :

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
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

[Sebphyto]

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