bonjour le forum bonjour le fil
re bfg49
1er solution
essayer d'exécuter cette macro, après avoir déprotégé le classeur et les feuilles
Sub SupprimerLiaisons()
Dim Liaisons As Variant
Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsEmpty(Liaisons) = True Then Exit Sub
For LiaisonsTrouvee = 1 To UBound(Liaisons)
ActiveWorkbook.BreakLink _
Name:=Liaisons(LiaisonsTrouvee), _
Type:=xlLinkTypeExcelLinks
Next LiaisonsTrouvee
End Sub
2eme solution pour les liaisons très récalcitrantes.
1. Ouvrir le fichier contenant les liaisons récalcitrantes. Appelons-le Fichier1.xlsm.
2. Dans Fichier/Propriétés, identifier le nom et l'emplacement du fichier Excel vers lequel se trouvent les liaisons (appelons-le Fichier2.xlsm), puis fermer Fichier1.xlsm.
3. Sous Windows, faire une copie de Fichier1.xlsm sous le nom et à l'emplacement de Fichier2.xlsm.
4. Ouvrir Fichier2.xlsm : il pointe donc vers lui-même et ne contient donc plus aucune liaison ! (en rapport avec ce fichier)
5. Sauvegarder Fichier2.xlsm sous le nom et à l'emplacement initial de Fichier1.xlsm.
Evidemment plusieurs liaisons sous-entends plusieurs manipulations
cdt
galougalou