Modification des liens hypertexte d'une feuille Excel

Bonjour,

Le thème a déjà été abordé mais je n'ai pas trouvé la réponse attendue

Mon problème est le suivant :

j'ai une feuille de calcul contenant des liens hypertexte

les documents concernés par ces liens ont changés d'environnement et je dois corriger tous les liens.

Je veux le faire d'une manière globale (il y en a beaucoup trop)

J'avais envisagé de faire par rechercher/remplacer mais...

certaines cellules hypertexte ont été nommées pour une meilleure lisibilité : le nom est accroché à la cellule et cache le chemin ou celui ci est stocké.

Il est impossible pour ces cellules hypertextes nommées de procéder par rechercher/remplacer

existe t-il une possibilité pour rétablir l'affichage du chemin complet (je ne l'ai pas trouvé pour le moment)

Avez vous une solution pour traiter mon problème (macro par exemple)

je suis pour l'instant en excel 2000

merci pour votre aide

Salut,

Juste un code simple qui permet de remplacer les liens de google par yahoo.

Je ne sais pas si cela répond exactement a ton besoin mais c'est une piste...

Cela va regarder les liens hypertext contenu dans la colonne A de la ligne 1 à Ligne(12) dans l'exemple.

Puis si on a google dans l'adresse on remplace l'adresse par yahoo.

Sub replaceHypertext()
    Dim Cell As Range
    Dim Ligne As Integer

    Ligne = 12 'Nombre de ligne max

    'Boucle sur les cellules de la colonne A
    For Each Cell In Range("A1:A" & Ligne)
        If Cell.Hyperlinks.Count > 0 Then
            If InStr(1, Cell.Hyperlinks(1).Address, "google") > 0 Then
                Cell.Hyperlinks(1).Address = "http://yahoo.fr"
            End If
        End If
    Next Cell
End Sub

sympa de ta part d'avoir répondu aussi rapidement

je vais essayer

merci