Comme la macro précédente, cette macro supprimera tous les liens externes ; cependant, ils seront supprimés dans l’ensemble du classeur, pas seulement dans la feuille de travail en cours. Cette macro recherchera toutes les feuilles de travail existantes d’un classeur et supprimera les liens externes, en les remplaçant par des valeurs.

Pour supprimer tous les liens externes dans un classeur :

1. Appuyez sur <Alt+F11>.
2. Dans le menu Insertion, cliquez sur Module.
3. Tapez la macro suivante :

Sub DeleteExLinksWkb()

Dim rng As Range

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets

 For Each rng In wks.UsedRange

   If InStr(rng.Formula, "[“) > 0 Then

         rng.Value = rng.Value

   End If

 Next rng

Next wks

End Sub