Private Sub Workbook_Open()
Const CheminD = "D:\SEB PERSONNEL\TRAVAIL\ANNONCES REPONDUES\"
Const CheminT = "T:\SEB PERSONNEL\TRAVAIL\ANNONCES REPONDUES\"
Dim Lien As Hyperlink, leTexte As String, parTexte As String
' définir quelle chaine à remplacer par quelle chaine
Select Case Left(ActiveWorkbook.Path, 1)
Case "T", "t"
leTexte = CheminD: parTexte = CheminT
Case "D", "d"
leTexte = CheminT: parTexte = CheminD
Case Else
MsgBox "Au moins un des disques n'est ni D: ni T:"
Exit Sub
End Select
' code pour modifier les liens
For Each Lien In ThisWorkbook.Sheets("BASE EMPLOI").UsedRange.Hyperlinks
Lien.Address = Replace(Lien.Address, leTexte, parTexte, , , vbTextCompare)
Next
End Sub