Discussion :

[Junness]

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 :

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

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

[ouskel'n'or]

Code :

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

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

[Junness]

j'obtiens toujours le meme résultat : la macro s'execute mais la liaison ne se supprime pas
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 :

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

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

[AlainTech]

Bruno petit est le nom d'un serveur???

[Junness]

en fait, j'ai juste récupéré l'emplacement des fichiers liés avec le code ce-dessous :

Code :

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

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

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