Discussion :

[MonSavon]

Bonjour,

Je fais suite au post ci-dessous :

https://www.developpez.net/forums/d1...fier-liaisons/

Voilà, j'ai récupéré un fichier et il s'avère que je possède des liaisons vers des classeurs externes que je n'arrive pas à supprimer (le bouton 'rompre' ne semble pas agir).
J'ai alors fait ma petite enquête et il semblerait que cela provienne des MEFC : Mise En Forme Conditionnelle; rapatrier avec un copier coller qui aurait peut être dû être valeur / formule pour ne pas tout ramener avec lui.

Je cherche un moyen intelligent d'identifier quelles MEFC sont liées à l'extérieur. Ayant un grand nombre de pages, la méthode 'mano' semble longues, je me demandais si quelqu'un ici ne possédait pas une petite astuce !

Merci d'avance,

Mon Savon!

EDIT : Après suppression massive de toutes les MEFC, les liaisons sont toujours là.... I'm kinda lost here

[Jean-Philippe André]

Salut,

tu peux passer par du VBA pour traiter toutes les MeFC.

L'information a analyser sera Formula1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CleanBrokenValidationRules(wbk As Workbook)
Dim i As Integer
Dim wsh As Worksheet
For Each wsh In wbk.Worksheets
With wsh.UsedRange
    For i = .FormatConditions.Count To 1 Step -1
        With .FormatConditions(i)
            If InStr(1, .Formula1, "#REF!") > 0 Then
                .Delete
            End If
        End With
    Next i
End With
Next
End Sub

[MonSavon]

Hello Jean-Philippe,


Merci pour ton code, je l'ai légèrement modifié pour le comprendre en step by step,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub CleanBrokenValidationRules(wbk As Workbook)
Dim i As Integer
Dim wsh As Worksheet
For Each wsh In wbk.Worksheets
With wsh.UsedRange
    For i = .FormatConditions.Count To 1 Step -1
        With .FormatConditions(i)
            If InStr(1, .Formula1, "#REF!") > 0 Then
                MsgBox "toto"
                '.Delete
            End If
        End With
    Next i
End With
Next
End Sub
 
Sub tiitii()
    Call CleanBrokenValidationRules(ThisWorkbook)
End Sub

Et il semblerait que je rencontre une erreur.
Erreur d'exécution '438' : Propriété ou méthode non géré par cet objet.

Quand j'explore en variable locale:
wsh.UsedRange
quand je lui demande d'étendre l'objet pour me présenter les attributs, le PC rame : big time, ne répond plus etc...
ensuite, il finit éventuellement par reprendre le contrôle, mais je ne peux pas relancer la macro sans que ça replante.

PS : Je viens de relancer la macro, cette fois les item() de FormatConditions n'ont pas de Formula1 mais uniquement Formula....


Sinon, n'y a-t-il pas un moyen de débusquer plus à la "mano" les liaisons ? Je pensais qu'elles se planquait en MeFC, mais je n'en suis plus sûr. Certaines se planquaient dans dans mon registre de Nom (cellules nommées), mais je continue de voir dans 'Données' les liens avec les fichiers... ... ..

Bref, j'ai pas bcp avancé !


Merci pour ton aide,

MS.

[Jean-Philippe André]

Je suis passe a un moment par un add in externe :
http://www.manville.org.uk/software/findlink.htm

Pas ultime, mais permet neanmoins de recuperer assez d'info "manuellement"

[eriiic]

Bonjour,

pour supprimer les liens as-tu essayé ? :
1) si le lien apparait 'modifier les liens' de remplacer la source par ton propre fichier
2) enregistrer ton fichier sous le nom du fichier2, même répertoire, puis le ré-enregistrer sous son vrai nom à son emplacement.
eric

[MonSavon]

Bonjour,

Oui j'ai essayé.

La deuxième méthode ne me convient pas puisqu'elle ne résout rien en réalité (les liens sont toujours là...)

@Jean Philippe : Je ne suis pas sûr d'installer correctement l'add-in. Je le vois bien dans mes compléments mais rien n'y fait je ne le trouve nul part dans la 'barre des tâches'.


Bien à vous,

MS.