Discussion :

[cyrus87]

Bonjour,

Suite à un crash de PC les liens hypertextes d'un fichier excel ont été modifié et j'aimerais savoir si il serait possible de les modifier à l'aide d'une macro.

J'aimerais qu'il fasse une vérification de chaque lien (colonne B) et si le lien redirige vers C:\... il faudra le remplacer par \\s013....

C:\Users\toto\Appdata\Roaming\Microsoft\Excel\Listing CR\...
\\S013\Groupes\milestone\Change Request\Listing CR\...

J'ai utilisé cette macro mais il manque la vérification des liens pour ne pas qu'il me modifie les liens qui sont déjà bon.

Code :

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

1
2
3
4
5
6
Sub ModifierLienPlage()
 Dim h As Hyperlink
 For Each h In [B1:B1000].Hyperlinks
 h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 38)
 Next
 End Sub

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
Dim h As Hyperlink
 For Each h In [B1:B1000].Hyperlinks
 If UCase(Left(h.Address, 2)) = "C:" Then
    h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 38)
 End If
 Next

[cyrus87]

Merci pour ton aide !

[cyrus87]

Bonjour,

Je viens à nouveau vers vous pour un problème de liens hypertextes corrompus.
Sur plus de la moitié des liens il manque une partie du chemin pour accéder au fichier.

Quand je fais un clic droit et modifier le lien hypertexte j'ai ceci : Listing%20CR\MW14023%20modif%20brûleur%20OCM.xls
J'aimerais ajouter cette partie du chemin aux liens existants : \\s013\Groupes\milestone\Change Request\

J'ai essayé avec cette macro mais ca ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
 Dim h As Hyperlink
For Each h In [B1:B1000].Hyperlinks
If UCase(Left(h.Address, 2)) = "Li" Then
    h.Address = "\\S013\Groupes\milestone\Change Request\" & Mid(h.Address, 1)
End If
Next
 
 End Sub

Auriez-vous une solution ?