Delete liens hypertext contenant E

Bonjour à tous

J'ai quelques soucis sur un fichier Excel contenant des liens hypertexte..

J'ai recherché sur le net le moyens de créer une marco supprimant tous les liens contenant "E:\", malheureusement je n'ai rien trouvé. Surtout que je ne suis pas très douée en anglais je me sens un peu désabusée..

Si quelqu'un aurait une solution ça serait vraiment génial.

Merci d'avance !

Salut,

Essayes ca sur UNE COPIE DE TON FICHIER.

Sub DeleteHypelinks()
Dim c As Range
For Each c In Range("A1", "Z65536")  'Ici spécifie le range de la feuille ou executer la recherche
    If c.Hyperlinks.Count > 0 Then  'Si il y a un lien
    If InStr(1, UCase(c.Hyperlinks(1).Address), UCase("E:\")) > 0 Then  'Ici : si on trouve 'E:\' dans le lien on supprime le lien
        c.Hyperlinks(1).Delete 'On supprime le lien
    End If
    End If
Next
end sub

Dis moi si cela fonctionne.

Damien

Salut,

Ca marche super !

Merci à toi !