Excel : comment réparer les liens brisés

Dans un classeur, vous pouvez parfois créer des liens vers d'autres classeurs pour faire référence à des informations pertinentes. Mais lorsque le classeur source est renommé ou déplacé vers un autre emplacement, ces liens supplémentaires seront rompus. Ici, ce didacticiel présente deux méthodes différentes pour réparer les liens rompus dans Excel.

Corrigez les liens brisés en appliquant Modifier les liens

Corrigez les liens brisés à l'aide du code VBA

Dans Excel, vous pouvez accéder à la boîte de dialogue Modifier les liens pour les corriger un par un.

1. Activez le classeur contenant les liens rompus, puis cliquez sur Sauvegarde de > Modifier les liens (en Requêtes et connexions groupe).

2. dans le Modifier les liens dialogue, cliquez sur Vérifier l'état pour trouver quels liens sont rompus.
 

3. Cliquez ensuite sur les liens brisés, puis cliquez sur Changer de source bouton, dans le Changer de source fenêtre, choisissez le bon classeur source, puis cliquez sur OK.

maintenant vous pouvez voir le statut changé de Erreur à OK, puis répétez l'étape 3 pour réparer d'autres liens rompus.

Voici un code VBA qui peut vous aider.

1. Activez le classeur dont vous souhaitez réparer les liens rompus et appuyez sur autre + F11 clés.

2. Puis dans le popping Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module pour créer un nouveau module vierge.

3. Copiez et collez le code ci-dessous dans le nouveau module.

VBA : Corriger les liens brisés

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. presse F5 clé ou Courir bouton (dans la fenêtre de contrôle qui apparaît maintenant)  pour activer le code. Maintenant, il recherche s'il y a des liens brisés. Si tel est le cas, une boîte de dialogue apparaît pour vous indiquer quel lien est rompu, veuillez sélectionner une nouvelle source. Cliquez sur OK continuer.

5. dans le Ouvert fenêtre, choisissez la source mise à jour, cliquez sur OK.

S'il existe toujours un lien rompu dans le classeur, les boîtes de dialogue ci-dessus réapparaissent jusqu'à ce que tous les liens rompus soient corrigés.

Remarque : s'il n'y a pas de lien rompu dans le classeur, le VBA s'arrêtera après l'exécution.

Conseil  : si vous souhaitez afficher tous les liens supplémentaires et casser les liens rompus, Kutools for Excel's Rechercher et rompre les liens rompus fonctionnalité sera une bonne aide.

Pour plus de détails sur cette fonctionnalité, veuillez cliquer sur ici.

Pour un essai gratuit de 30 jours, veuillez télécharger depuis ici.

---

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...