XL 2019 Liaison rompue d'un classeur

EDIT : ce post ne traite que les liaisons vers des fichiers Excel (pas des objets OLE insérés)
Bonsoir à toutes & à tous, bonsoir @Electronull
1er point, ce n'est quand même pas trop difficile à apprendre comment actualiser des liaisons, mais bon, on continue quand même.
2ème point la réaction d'Excel aux liaisons dépend aussi d'options choisies :
Vue 2024 :


Vue 2007 :


Bon maintenant pour gérer les liaisons vers d'autres classeurs Excel on peut passer par un formulaire qui s'affiche à l'ouverture du classeur père si l'on détecte des liaisons rompues vers d'autres classeurs.

ThisWorkbook.LinkSources(xlExcelLinks) renvoie un tableau des liaisons vers d'autres fichiers Excel (liste des noms complets des fichiers)
Il suffit donc de tester l'existence de ces fichiers pour savoir si les liaisons sont rompues.

Si des liaisons sont rompues, on affiche un formulaire avec la liste des fichiers disparus et on propose de choisir des nouveaux fichiers ;
avec la liste des fichiers choisis on met à jour les liaisons ce qui se fait avec la syntaxe ThisWorkbook.ChangeLink Ancien, Nouveau

Formulaire proposé (à toi d'adapter):


Voilà pour le principe, l'application se trouve dans les fichiers joints :

Voir les pièces jointes

À bientôt

Bonjour AtTheOne,

Merci pour tes fichiers, désolé de ne pas avoir répondu plus tôt.
Je ne comprends pas le code suivant que j'essaie de placer dans mon code.
De plus, je ne trouve nulle part l'appel à cette fonction dans ton code.

'Renvoie True si l'item désigné par son nom appartient à la collection
'Exemple Collection = worksheets, Item = "Feuil1"
Function EstDansCollection(Coln As Object, Item As String) As Boolean
Application.Volatile
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function

quand je démarre mon code, j'ai une erreur sur , LI As ListItem et LiB As ListItem dans la procédure Private Sub UserForm_Initialize()

merci pour ton aide

Bonjour à toutes & à tous, bonjour @Electronull

Electronull à dit:

Je ne comprends pas le code suivant que j'essaie de placer dans mon code.

Cliquez pour agrandir...

Suppose que tu cherches si une feuille, désignée par son nom, existe dans le classeur actif.
La collection est ThisWorkbook.Worksheets (la collection des feuilles du classeur)
Si le nom de la feuille cherchée est "MaFeuille"
L'appel de la fonction est
Résultat = EstDansCollection(ThisWorkbook.Worksheets, "MaFeuille")
Résultat contiendra True si la feuille existe et False si elle n'existe pas.
Tu peux placer l'appel directement dans un test plutôt que dans une variable.
Pour le reste, avec le peu d'éléments que tu me donnes, je ne peux guère t'aider.
Est-ce qu'avec les fichiers que je t'ai envoyés cela fonctionne ?
Je suis sur mon téléphone, difficile d'aller plus loin.
À bientôt

Salut,
Merci pour ta réponse.
En fait, oui tes fichiers fonctionnent.
Mais quand je copie ton code dans mes fichiers, il y a des erreurs sur cette ligne
Dim LiB As ListItem, LI As ListItem

Type défini par l'utilisateur non défini

Ben oui, évidemment, que je suis bête, et dire que c'est pareil en VBA Access
Il manquait bien une référence.

Merci tout est nickel