Alors mettez cette macro dans un module (Alt+F11) et exécutez-la (Alt+F8) :
VB:
Sub Ouvrir_Liens()
Dim F As Worksheet, a, i&
Set F = ActiveSheet
a = ThisWorkbook.LinkSources
If Not IsArray(a) Then Exit Sub
For i = 1 To UBound(a)
Workbooks.Open a(i)
Next
Application.Goto F.[A1]
End Sub
Alors mettez cette macro dans un module (Alt+F11) et exécutez-la (Alt+F8) :
VB:
Sub Ouvrir_Liens()
Dim F As Worksheet, a, i&
Set F = ActiveSheet
a = ThisWorkbook.LinkSources
If Not IsArray(a) Then Exit Sub
For i = 1 To UBound(a)
Workbooks.Open a(i)
Next
Application.Goto F.[A1]
End Sub
Dernière question, peut-on ajouter à cette macro une ligne qui automatiserait le click systématique "ne pas mettre à jour les liaisons" pour chaque fichier qui va s'ouvrir svp ? merci