Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim Lien For Each Lien In ActiveWorkbook.LinkSources ActiveWorkbook.ChangeLink Lien, _ NewName:="C:temp 70515.xls" Next End Sub
en mettant dan "newname" la nouvelle liaison. Cordialement. Daniel "Excel-Word-liaisons" a écrit dans le message de news:
edition/liaisons implique de modifier un à un les liens Merci
Bonjour.
Essaie :
Sub test()
Dim Lien
For Each Lien In ActiveWorkbook.LinkSources
ActiveWorkbook.ChangeLink Lien, _
NewName:="C:temp 70515.xls"
Next
End Sub
en mettant dan "newname" la nouvelle liaison.
Cordialement.
Daniel
"Excel-Word-liaisons" <Excel-Word-liaisons@discussions.microsoft.com> a
écrit dans le message de news:
A4076385-6D22-465C-9A11-D00E5BEDB9CB@microsoft.com...
edition/liaisons implique de modifier un à un les liens
Merci