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