Discussion :

[Jeanjan]

Bonjour à tous !

Je me suis inscris car j'ai une grande question qui trottine dans ma tête.
Je vous explique d'abord la situation :

J'ai un fichier excel avec un p'tit tableau fait maison ! dans ce tableau, il y a des liens qui amène vers un fichier (exemple : "\\Scorpion\bureautique\DOSSIERS ****\STAGIAIRE\****\Base de données\Diagnostics\****\Résidence ***\DTA" -> les étoiles caches les infos un peu trop perso ^^)

Sauf que j'ai un problème, j'aimerais renommer le dossier "Diagnostics" en "Communes", donc je vais ma modif', mais bien sur les liens ne s'ouvre plus !

J'aimerais donc savoir s'il y a un moyen de changer, dans tout les liens d'un coup, le "Diagnostics" par "Communes" ? (les noms des fichiers ne changeraient pas, ni leur emplacement ! je veux juste renommer ce dossier !)

Voila, je sais pas si mon explication était clair, si ce n'est pas le cas, n'hésitez pas à me le dire ^^

En vous remerciant par avance,

Jeanjan

[Jeanjan]

Je viens de tester ceci (trouver sur votre site):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Hpk As Hyperlink
Dim strLien As String
 
For Each Hpk In Worksheets("Diagnostic Amiante").Hyperlinks
    strLien = Hpk.Address
    Hpk.Address = Replace(strLien, "Diagnostics", "Communes")
Next Hpk

Mais rien en change !

J'ai essayé ensuite ceci :

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
Sub replace_change_lienhypertext()
Dim plage As Range
Dim oldvalue As String
Dim newvalue As String
Dim c As Range
Dim tempstr As String
 
'A modifier
oldvalue = "\\Scorpion\bureautique\DOSSIERS LOT HABITAT\STAGIAIRE\FABRE Guillaume\Base de données\Diagnostics"
newvalue = "\\Scorpion\bureautique\DOSSIERS LOT HABITAT\STAGIAIRE\FABRE Guillaume\Base de données\Communes"
 
Set plage = Selection
For Each c In plage
If c.Hyperlinks.Count > 0 Then
 If InStr(1, c.Hyperlinks(1).Address, oldvalue) > 0 Then
        c.Hyperlinks(1).Address = Replace(c.Hyperlinks(1).Address, oldvalue, newvalue)
   End If
    End If
Next
 
End Sub

Mais ca ne change pas non plus ... je ne comprends pas du coup ! (c'est vrai que je ne pratique pas le VBA, mais copier collé un code et le changer un peu, je sais faire !)

Auriez vous une idée ?

[Jeanjan]

Bon, après de multiple recherche, j'ai ré-appliqué ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub remplacer()
 Dim Hpk As Hyperlink
 Dim strLien As String
 
 For Each Hpk In Worksheets("Diagnostic Amiante ").Hyperlinks
 
strLien = Hpk.Address
 
Hpk.Address = Replace(strLien, "Diagnostics", "Communes")
 Next Hpk
 
 End Sub

(en faite, j'avais une petite faute d'espace !)

Merci quand même de vos lectures sans réponses :p