Discussion :

[olivier231]

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

[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.

[ouskel'n'or]

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

Bonne chance

[random]

quand on trouve pas dans les cellules il faut chercher dans les noms

[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...

[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

[ouskel'n'or]

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à :

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

Code :

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

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

Ensuite, pour modifier les liaisons, tu as

Code :

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

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

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 :

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

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

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+