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.

[Jean-Philippe André]

Salut,
Ne vois tu pas dans le ruban un onglet Add-in apparaitre ?

Le code date d'une version anterieure d'Excel, donc pas d'onglet et de beau ruban.

[MonSavon]

De retour du long week-end, et après traitement des petites surprises que cela a engendré !

Du coup; non, je ne trouve pas d'onglet ou autre relié à FindLink.

Dans mon ruban, j'ai :

Fichier - Insérer - Mise en Page - Formules - Données - Révision - Affichage - Développeur

J'ai cherché en 'personnalisant', rien qui semble se rapprocher de Add-in.

Lorsque je vais dans Développeur > Compléments Excel : j'ai une fenêtre à check box qui s'ouvre dans laquelle Findlink est bien présent et sélectionné (dois-je faire Automatisation?).

Je suis possiblement "miro" hein !

Merci encore

MS

[Jean-Philippe André]

SAlut,

En decochant recochant, un onglet Add-in n'apparait-il pas ?

[MonSavon]

Non, alors que le Solveur lui apparaît et disparaît bien selon la check box.

[Jean-Philippe André]

Bon oublie cet addin du coup.

Methode pour determiner ou peut se trouver l'enquiquineur :
- creer un nouveau classeur
- faire des copies une a une des feuilles du classeur de depart dans le nouveau
- regarder a chacune des feuilles les liens qui se creeraient
- virer la feuille en question
- verifier que les liens ont disparu dans le nouveau classeur
- creer une nouvelle feuille
- faire un copier/coller colonne par colonne

[MonSavon]

Hello !

J'ai fait une méthode que je pense similaire:

Fait une sauvegarde du fichier,
supprimer les pages une par une jusqu'à identifier les 3 liaisons sur 2 pages.
Ensuite, je suis allé sur la page et j'ai supprimé (Ctrl -) colonne par colonne afin de savoir à quelle colonne était la liaison.
Et là, rien ne s'est supprimé. J'ai voulu vérifié et j'ai sélectionné toute la page et fait Ctrl -, rien n'y fait.
J'ai supprimé la page, et là, les liaisons ont disparu.

Je ne vois pas où elles se cachent !

[eriiic]

Bonjour,

tu as jeté un oeil sur les MFC aussi ?
eric

edit : oui forcément, je viens de voir que c'est dans ton titre :-)

[MonSavon]

Oui, je les ai retirées avant même de supprimer les colonnes.

MeFC > Effacer les règles > de la feuille entière

pas d'effet

[Jean-Philippe André]

pas de feuille cachee ?

[MonSavon]

Non aucune.
Mais pour le coup, j'ai identifié les 2 feuilles où il y a des liaisons.
Je n'arrive pas mettre la main sur les cellules / zones où les liaisons sont utilisées.

[Jean-Philippe André]

ok et dans les plages nommees dans ces feuilles ?

[parmi]

Bonjour,

As-tu des boutons liés à des macros ?
Si oui, y en a-t-il qui regardent dans le fichier externe ?

[MonSavon]

@Jean Philippe André : quand je vais dans Formules > Gestionnaire de noms : la fenêtre ne me montre aucun nom qui fait référence à un classeur externe :/

@Parmi : j'ai bel et bien des boutons sur mes 2 pages mais quand je fais clic droit "Affecter une macro" je vois bien que le bouton est affecté à une macro de mon classeur (pas d'externe).

Le mystère reste intact !

[parmi]

Est-ce qu'il y a des graphiques ?