Supprimer les liasons

Bonjour le forum,

Est il possible de faire une macro qui supprime les liaisons d'un autre classeur?

Merci

Bonjour

Code de BHBH

With ActiveWorkbook
        Lien = .LinkSources(xlLinks)
        For Each Lien In .LinkSources
            ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
        Next Lien
End With

Amicalement

Nad

Merci Nad-Dan, toujours aussi efficace!

Comment l'intégrer à cette macro pour supprimer les liens éventuels de mon archive :

Sub Archiver()

Dim nomfichier

Dim num As Integer

Dim no_client As String

ThisWorkbook.ActiveSheet.Copy

chemin = "C:\$Echange\"

nomfichier = Format(Now(), "dd mm yy à hh mm ss")

MsgBox "Sauvegarde de la feuille en cours le : " & nomfichier

With ActiveWorkbook

.SaveAs Filename:=chemin & nomfichier

.Close

End With

End Sub

Moi, je ne saurais te le dire, mais si Dan est dans les parages ou un autre "VBAbaïste"

Nad

Merci,

le mieux est que je fasse des essais...

Bonjour,

Tiens ta macro me dit quelque chose...

Mets ceci après MSGBOX.....

With ActiveWorkbook
Lien = .LinkSources(xlLinks) 
For Each Lien In .LinkSources 
.BreakLink Lien, Type:=xlExcelLinks 
Next Lien 
.SaveAs Filename:=chemin & nomfichier 
.Close 
End With

N'oublie pas de déclarer Dim Lien.

Change DIM nomfichier par Dim nomfichier as string

Dan[/b]