[VB-Excel]suppression de liaison

Version imprimable

bonjour,
j'ai récupéré un fichier excel ou il existe des liaisons vers d'autres classeurs. Je souhaite enlever ses liaisons. J'ai regarder dans edition-->liaison mais aucun moyen de les supprimer, donc je me suis résolu à écrire une macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub supprim() 'code me retournant la liaison liaison = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(liaison) Then Dim temp temp = 1 MsgBox "Liaison " & temp & ":" & liaison(temp) End If 'suppression ActiveWorkbook.ChangeLink liaison(temp), "C:\julien\donnéesorigines\reports\final_long1.xls", xlLinkTypeExcelLinks End Sub
la valeur de liaison(temp) est de la forme :"\\Bruno petit\APPLICATION\MESDOC~1\Devisinc.xls"

le problème est que lorsque je vais vérifier dans edition/liaison, la liaison est toujoursla
merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Essaie avec ça
Sub LiaisonsModifierSupprimer()
      Chemin = ActiveWorkbook.path + "\" & ActiveWorkbook.Name 'Nouveau chemin à indiquer
      aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
      If Not IsEmpty(aLinks) Then
           For i = 1 To UBound(aLinks)
                If MsgBox("Modifier la liaison " & i & ":" & Chr(13) & aLinks(i), vbYesNo, "") = vbYes Then '*********
                    ActiveWorkbook.ChangeLink aLinks(i), Chemin, xlExcelLinks
                End If '***********
           Next i
      End If
End Sub

si tu retires les deux lignes '************** tu effaces toutes les liaisons
Tu dis

24/07/2006, 14h31
Junness
j'obtiens toujours le meme résultat : la macro s'execute mais la liaison ne se supprime pas :cry:
Après avoir cherché, je me suis aperçu que je n'ai pas accés au fichier lié ::"\\Bruno petit\APPLICATION\MESDOC~1\Devisinc.xls". Est ce que c'est cela qui empecherai la suppression ? Cela me semble peu probable mais la je vois pas trop ce qui cloche

EDIT : en entrant directement le nom du fichier et en faisant ce code
Code:

1 2 chemin = ActiveWorkbook.Path + "\" & ActiveWorkbook.Name ActiveWorkbook.ChangeLink "\\Bruno petit\APPLICATION\MESDOC~1\Devisinc.xls", chemin, xlExcelLinks
j'ai l'erreur suivante : la méthode changlink a échoué, donc le fait de ne pas avoir accés au fichier est le problème ... :(
24/07/2006, 16h10
AlainTech

Bruno petit est le nom d'un serveur???
24/07/2006, 16h17
Junness
en fait, j'ai juste récupéré l'emplacement des fichiers liés avec le code ce-dessous :
Code:

1 2 3 4 5 6 liaison = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(liaison) Then Dim temp temp = 1 MsgBox "Liaison " & temp & ":" & liaison(temp) End If
mais c'est vrai qu'en recherchant \\Bruno petit , il n'y a rien ( comme je l'ai dit précédement je nai plus accés au fichier ). Par contre je ne comprend pas pourquoi le fait de ne pas avoir accé au fichier empeche l'execution de changelink :?
24/07/2006, 17h08
Junness

dans le menu edition/liaison, j'ai essayé de modifier la source du fichier lié pour que ce soit mon classeur actif, mais impossible. J'ai donc modifier la source vers un autre fichier excel bidon, et je me suis dit que j'allais supprimer la liaison avec le code précédent. Mais rien aucune suppression :cry:
Seul point positive : le fait de ne pas avoir accés au fichier n'influe pas changelink
Point négatif : comprend pas pourquoi ça foire :?
25/07/2006, 18h30
ouskel'n'or

Où as-tu placé la macro destinée à supprimer les liaisons ?
26/07/2006, 10h09
Junness

la macro est attaché à un commandbutton dans une de mes feuilles du classeur concerné
26/07/2006, 17h45
SilkyRoad

bonjour

L'utilitaire FindLink de Bill manville est tres efficace pour supprimer définitivement les liaisons

http://www.oaltd.co.uk/MVP/Default.htm

bonne soiree
michel
27/07/2006, 09h06
Junness

merci bien je vais regarder cela ;)