Excel liens rompus Fermé

Question

Bonjour,

J'ai dans mon fichier excel des noms de client et un numéro d'affaire, plus quelques autres informations. Pour simplifier ma recherche de documents j'avais mis un lien sur le numéro d'affaire vers le dossier client. Le nom de dossier client n'est pas forcement uniquement celui du numéro d'affaire.

Exemple : Paris      25677    (dans la case 25677 : lien hypertexte vers le dossier F:/Affaires/Ile_de_france/25677_paris (affaire untel)

Lors d'un enregistrement tous les débuts de mes liens se sont retrouvés modifiés. Avant ça pointait vers le serveur F:/Affaires/Ile_de_france/25677_paris (affaire untel) et maintenant ça pointe vers file:///C/Documents and settings/Machin/Apllication data/Microsoft/Affaires/Ile_de_france/25677_paris (affaire untel). Et c'est comme ça pour tous mes liens

Le souci c'est que la fonction rechercher-remplacer ne va pas dans un lien hypertexte "semi masqué". Si je cherche le lien, il n ele trouve pas. De même en essayant de repartir d'un ancien fichier, le copier-coller ne fonctionne pas. Il prend tout sauf le lien hypertexte. On a l'impression que le lien est accroché à la cellule comme pourrait l'être un format.

Avez vous une idée pour que je puisse modifier tous les liens d'un coup ??

Pour info les autres solutions expliquées sur le forum n'ont pas donné l'effet escompté.

Merci de votre aide.

Excel 2007 et Windows XP

gbinforme · Answer

bonjour

Lors d'un enregistrement tous les débuts de mes liens se sont retrouvés modifiés.

Si j'ai bien compris, en fait tu as changé l'emplacement de ton fichier, de 
F:/Affaires/Ile_de_france/25677_paris (affaire untel) 
tu es passé à
C:/Documents and settings/Machin/Apllication data/Microsoft/Affaires/Ile_de_france/25677_paris (affaire untel)

Si tu sauvegarde ton fichier sous F: tu devrais retrouver tes liens corrects.

lermite222 · Answer

Bonjour,
Effectivement c'est pas facille de modifier ces lien, esssaye avec ce code, j'ai tester et ça devrait fonctionner.
Fait quand même une copie avant de lancer la sub
Sub RectifieHyper()
Dim NB As Long, Ad As String
Dim TB
    With Sheets("Feuil2") 'Adapter au nom de la feuille
        For NB = 1 To .Hyperlinks.Count
            Ad = .Hyperlinks(NB).Address
            TB = Split(Ad, "Microsoft")
            If UBound(TB) > 0 Then
                .Hyperlinks(NB).Address = "F:" & TB(1)
            End If
        Next NB
    End With
End Sub
A placer dans le code de la feuille ou dans un module général.
Tu dis...
A+

lermite222 · Answer

tu a copîer le code avant ma rectification :-))
Recopie le code actuel du poste 3
ET A PART SI LA LETTRE DU DD N'EST PAS LA BONNE RIEN D'AUTRE NE DOIT ËTRE CHANGER
A+

eriiic · Answer

Bonjour,

Malheureusement non, il n' a pas bougé de dossier.
Je pense que si...
Qcq'un a dû faire un 'enregistrer sous...' et il a été ramené à sa place ensuite par l'explorateur de fichier.
As-tu essayé de faire l'inverse ?
Cad déplacer le fichier lié (avec l'explorateur) là où l'attend excel, ouvrir tes 2 fichiers et 'enregistrer sous...' le fichier dans son bon répertoire.
eric

EDIT: 
je viens de réaliser que ça n'était pas 2 classeurs en cause mais peut-être qcq dizaines... 
Plutôt que tout ouvrir tu fais 'outils / options... / affichage' et tu y coches 'formules'
Là tu peux faire tes 'remplacer' dans les formules.