vgendron
XLDnaute Barbatruc
Bonjour à toutes et tous,
Me voici avec un nouveau casse-tête
Vous avez surement tous été confrontés un jour à ce message dès l'ourverture de votre fichier excel
"Ce classeur comporte des liaisons avec une ou plusieurs sources externes...." Mettre à jour - Ne pas mette à jour - aide"
bien souvent , on fait "Ne pas mettre à jour" pour etre tranquille.. mais le message reviendra la prochaine fois..
donc, on finit par décider de faire "Mettre à jour".. et la....
il ne trouve pas la fameuse source.. donc.. on choisit "Modifier les liaisons"
et il vous sort une jolie liste avec tout un tas d'informations SAUF celle qui nous interresse : QUI dans ce classeur fait appel à ces fichiers externes ??
et le bouton Rompre liaison ne donne rien !!!
bref.. tout un tas de clics.. pour .... 0 résultat !!
j'ai donc cherché comment supprimer ces liens.. avec la macro ci dessous
OK.. ca marche très bien.. mais.. je ne sais toujours pas OU dans mon fichier, cette liaison apparait...
si ca se trouve..je viens de supprimer des liaisons importantes???
donc THE question
sauriez vous comment localiser cette liaison avant de la supprimer??
Merci et bonne journée :-D
Me voici avec un nouveau casse-tête
Vous avez surement tous été confrontés un jour à ce message dès l'ourverture de votre fichier excel
"Ce classeur comporte des liaisons avec une ou plusieurs sources externes...." Mettre à jour - Ne pas mette à jour - aide"
bien souvent , on fait "Ne pas mettre à jour" pour etre tranquille.. mais le message reviendra la prochaine fois..
donc, on finit par décider de faire "Mettre à jour".. et la....
il ne trouve pas la fameuse source.. donc.. on choisit "Modifier les liaisons"
et il vous sort une jolie liste avec tout un tas d'informations SAUF celle qui nous interresse : QUI dans ce classeur fait appel à ces fichiers externes ??
et le bouton Rompre liaison ne donne rien !!!
bref.. tout un tas de clics.. pour .... 0 résultat !!
j'ai donc cherché comment supprimer ces liens.. avec la macro ci dessous
VB:
Sub SupprimerLiaisons()
Dim Liaisons As Variant
Dim LiaisonsTrouvee As Long
Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsEmpty(Liaisons) = True Then Exit Sub
For LiaisonsTrouvee = 1 To UBound(Liaisons)
MsgBox Liaisons(LiaisonsTrouvee)
ActiveWorkbook.BreakLink _
Name:=Liaisons(LiaisonsTrouvee), _
Type:=xlLinkTypeExcelLinks
Next LiaisonsTrouvee
End Sub
OK.. ca marche très bien.. mais.. je ne sais toujours pas OU dans mon fichier, cette liaison apparait...
si ca se trouve..je viens de supprimer des liaisons importantes???
donc THE question
sauriez vous comment localiser cette liaison avant de la supprimer??
Merci et bonne journée :-D