Excel : comment corriger les liens rompus
Dans Excel, les liens vers d’autres classeurs sont fréquemment utilisés pour référencer des données pertinentes. Cependant, si un classeur source est renommé ou déplacé, ces liens peuvent se rompre et générer des erreurs. Ce tutoriel présente deux méthodes efficaces — la fonction **Modifier les liens** ou un script VBA — pour détecter et corriger rapidement les liens rompus dans votre classeur.
Corrigez les liens rompus en appliquant la fonction Modifier les liens
Corrigez les liens rompus à l’aide d’un code VBA
Dans Excel, accédez à la boîte de dialogue « Modifier les liens » pour les corriger un par un.
1. Ouvrez le classeur contenant les liens rompus, 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 identifier les liens rompus.
3. Cliquez ensuite sur les liens rompus, puis sur le bouton Modifier la source. Dans la fenêtre Modifier la source, sélectionnez le bon classeur source, puis cliquez sur OK.
Vous constatez désormais que l’état est passé de Erreur à OK. Répétez l’étape 3 pour corriger les autres liens rompus.
Cette section présente un code VBA conçu pour corriger les liens rompus.
1. Ouvrez le classeur dont vous souhaitez corriger les liens rompus, puis appuyez sur les touches Alt+F11.
2. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, cliquez sur Insertion > Module pour créer un nouveau module vierge.
3. Copiez-collez le code ci-dessous dans le nouveau module.
VBA : corriger les liens rompus
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 exécuter le code. Celui-ci recherche alors d’éventuels liens rompus. Si des liens rompus sont détectés, une boîte de dialogue s’ouvre pour vous indiquer lequel est concerné et vous invite à sélectionner une nouvelle source. Cliquez sur OK pour continuer.
5. Dans la fenêtre Ouvrir, sélectionnez la source mise à jour, puis cliquez sur OK.
Si des liens rompus persistent dans le classeur, les boîtes de dialogue ci-dessus réapparaissent jusqu’à ce que tous les liens invalides soient corrigés.
Remarque : si aucun lien rompu n’est présent dans le classeur, le code VBA s’arrête dès son exécution.
Astuce : si vous souhaitez afficher tous les liens externes et supprimer ceux qui sont rompus, la fonctionnalité Kutools pour Excel « Trouver et rompre les liens » sera d’une grande aide.
Pour en savoir plus sur cette fonctionnalité, consultez notre tutoriel détaillé !
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Comment corriger/verrouiller Couleur de fond dans une feuille
Parfois, lorsque vous partagez une feuille avec d’autres personnes pour qu’elles y apportent des modifications, vous pouvez souhaiter verrouiller la couleur de fond d’une plage de cellules afin d’empêcher toute altération.
Comment réduire la taille d’un fichier Excel ?
Il arrive parfois qu’ouvrir ou enregistrer un fichier Excel prenne plusieurs minutes lorsqu’il est trop volumineux. Pour résoudre ce problème, ce tutoriel explique comment réduire la taille du fichier en supprimant les contenus ou formats inutiles, voire jamais utilisés.
Excel : comment créer ou insérer un signet
Avez-vous déjà imaginé créer ou insérer un signet pour accéder rapidement à une plage de données spécifique lorsqu’une feuille de calcul ou un classeur contient une grande quantité d’informations ?
Comment colorer les lignes ou colonnes impaires et paires (alternées) dans Excel ?
Lors de la conception d’une feuille de calcul, de nombreuses personnes colorent les lignes ou colonnes impaires et paires (alternées) afin de rendre la feuille plus lisible. Cet article vous présente deux méthodes pour colorer les lignes ou colonnes impaires et paires dans Excel.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels