Changer liens hypertexte sans changer la mise en forme

Bonjour,

j'utilise une macro pour changer mes liens hypertexte, le souci que je rencontre c'est que ça me change toute ma mise en forme, est-il possible de remédier à ce problème ?

merci d'avance

Sub Modifier_lien()

Dim Doc As Workbook

Dim Cell As Range

Dim OldStr As String

Dim NewStr As String

Dim OldHp As String

Dim NewHp As String

OldStr = "G:\xxx"

NewStr = "C:\xxx"

Application.Calculation = xlManual

Set Doc = Application.ActiveWorkbook

For Each Cell In Selection

If Cell.Hyperlinks.Count > 0 Then

OldHp = Cell.Hyperlinks(1).Address

NewHp = Replace(OldHp, OldStr, NewStr)

Cell.Hyperlinks.Delete

Doc.ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:=NewHp

End If

Next Cell

Application.Calculation = xlAutomatic

End Sub

Bonjour debutant75 et bonne année 2014

Pour ce faire, il faut rétablir le format de la cellule.

Soit par un copier/collage spécial format d'une autre cellule

Exemple : la celluel A1 contenant ton lien hypertexte, A2 étant la cellule avec le bon format

Range("A2").Copy
  Range("A1").PasteSpecial xlPasteFormats

Soit en mettant la Font, la taille et la couleur que tu souhaites

With Range("A1").Font
    .Name = "Tahoma"
    .Size = 10
    .ColorIndex = xlAutomatic
End With

A+

merci pour votre réponse, mais j'ai trouvé autre chose j'ai juste supprimé la ligne 'Cell.Hyperlinks.Delete' de ma macro

merci quand même et bonne année