Excel : Comment réparer les liens brisés

Dans Excel, les liens vers d'autres classeurs sont souvent utilisés pour référencer des informations pertinentes. Cependant, si un classeur source est renommé ou déplacé vers un autre emplacement, ces liens peuvent être rompus, entraînant des erreurs. Ce tutoriel propose deux méthodes efficaces - en utilisant la fonctionnalité Modifier les liens ou le code VBA - pour identifier et réparer rapidement les liens brisés dans votre classeur.

Réparer les liens brisés en appliquant Modifier les liens

Réparer les liens brisés en utilisant le code VBA

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

1. Ouvrez le classeur contenant les liens brisés, puis cliquez sur Données > Modifier les liens (dans le groupe Requêtes et connexions ).

2. Dans la boîte de dialogue Modifier les liens , cliquez sur Vérifier l'état pour trouver quels liens sont brisés.
 

3. Ensuite, cliquez sur les liens brisés, puis cliquez sur le bouton Changer la source Dans la fenêtre Changer la source , choisissez le classeur source correct, puis cliquez sur OK.

Vous pouvez maintenant voir que l'état a changé de Erreur à OK. Répétez l'étape 3 pour corriger les autres liens brisés.

Cette section présente un code VBA pour aider à réparer les liens brisés.

1. Activez le classeur que vous souhaitez réparer, puis appuyez sur Alt + F11.

2. Ensuite, dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, cliquez sur Insérer > Module pour créer un nouveau module vide.

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

VBA : Réparer 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. Appuyez sur la touche F5 ou sur le bouton Exécuter   pour activer le code. Maintenant, il recherche s'il existe des liens brisés. Si c'est le cas, une boîte de dialogue apparaît pour vous indiquer quel lien est brisé. Sélectionnez une nouvelle source, puis cliquez sur OK pour continuer.

5. Dans la fenêtre Ouvrir , choisissez la source mise à jour, puis cliquez sur OK.

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

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

Astuce: Si vous souhaitez afficher tous les liens supplémentaires et rompre les liens brisés, Kutools for Excel's Trouver et rompre les liens sera un bon outil d'aide.

Pour en savoir plus sur cette fonctionnalité, consultez notre tutoriel détaillé.