Discussion :

[morel0077]

salut

j'aimerais modifier dans le chemin de tous les liens hypertexte d'une feuille excel

exemple:
c\cpg\calcul par d\pgm\frd\calcul

j'ai réussi à le faire terme par terme mais lorsqu'il faut ajouter un nouveau \ ça marche pas

merci

[Qwazerty]

Salut
Je dirais que dans une macro tu fais quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub ModifLink()
Dim TheLink As Hyperlink
 
For Each TheLink In ThisWorkbook.Sheets("Feuil1").UsedRange.Hyperlinks
    'On regarde si les 6 1er caractere du lien sont c:\cpg
    If UCase(Left(TheLink.Address, 6)) = UCase("c:\cpg") Then
        'On modifie
        TheLink.Address = "d:\pgm\frd" & Mid(TheLink.Address, 7)
    End If
Next
End Sub

++
Qwaz