[VBA-E]Suppression liaisons dans excel

Version imprimable

22/11/2005, 13h25
olivier231

[VBA-E]Suppression liaisons dans excel

Bonjour,

j'ai crée un fichier excel pour les congés qui a des liaisons avec un quinzaine d'autres fichiers.
Le problème est que lorsque j'ai voulu dupliqué ce fichier pour 2006, j'ai modifié toutes les liaisons. Je ne sais pas pourquoi, mais une liaison reste et je ne peux pas la supprimer, la modifier.
Il s'agit je pense d'un bug d'Excel et j'aurais voulu savoir comment coder en VB une macro pour supprimer une liaison

Merci de votre réponse
22/11/2005, 14h08
Megaxel

Hello!
Ce sujet a été traité il n'y a pas longtemps. Fais une recherche avancée dans le forym VB, et tu trouveras ce qu'il te faut.
22/11/2005, 14h15
ouskel'n'or

Ici
http://www.developpez.net/forums/viewtopic.php?t=419689

Bonne chance
22/11/2005, 17h53
random

quand on trouve pas dans les cellules il faut chercher dans les noms
22/11/2005, 18h35
Tan

Ramdom a raison, mais juste une note pour dire qu'avec office 2003 tu as une option pour toutes les virer automatiquement (dans Edition=> Liaisons)
Donc si tu as cette version pas besoin de chercher, sinon, effictivment, rechercher dans les celulles et les noms de plages...
23/11/2005, 09h38
olivier231

J'ai tout essayé et rien ne marche
Je fais une recherche sur le nom de la liaison et plus rien n'existe dans les formules.
J'essaie de changer la liaison par les code VB que vous m'avez fourni (change link) mais la liaison reste toujours.
Je pense que mon entreprise va prochainement évoluer en office 2003 et je vais attendre cette évolution pour virer cette liaison récalcitrante.

Merci de votre aide

Je t'avais donné une adresse où le problème a été évoqué et où j'avais passé le code pour supprimer toutes les liaisons. Je te le remets donc :
je l'utilise régulièrement et n'ai pas de pb.
Désolé de me citer mais volà :

Citation:

Déjà, pour trouver la liste des liaisons (si elles vont toutes vers des fichiers Excel), tu peux faire ça
Code:

1 2 3 4 5 6 7 8 Sub ListeDesLiaisons() aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) MsgBox "Liaison " & i & ":" & Chr(13) & aLinks(i) Next i End If End Sub
Citation:

Ensuite, pour modifier les liaisons, tu as
Code:

1 2 ActiveWorkbook.ChangeLink "d:\xls\classeur1.xls", _ "d:\xls\classeur2.xls", xlExcelLinks
Citation:

Si tu mets ça dans la boucle précédente, en modifiant le premier classeur par aLinks(i) et en mettant en second le classeur auquel doivent se référer les données, tu devrais pouvoir obtenir ce que tu veux. Ce qui pourrait donner :
Code:

1 2 3 4 5 6 7 8 9 10 Sub ModifierLesLiaisons() aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) MsgBox "Liaison " & i & ":" & Chr(13) & aLinks(i) ActiveWorkbook.ChangeLink aLinks(i), _ "d:\xls\classeur2.xls", xlExcelLinks Next i End If End Sub
Citation:

Classeur2 deviendra le fichier lié au fichier actif et si le fichier actif est Classeur2, tu as supprimé toutes les liaisons entre fichiers mais pas les références de cellules ni de feuilles
ATTENTION aux homonymes concernant les noms de feuilles
Tu fais des essais, ça semble marcher mais VÉRIFIE sur des fichiers de test !

Si tu as des questions...

A+