Re KAR_inette,
Et bien çà je l'ai pas encore vu dans le forum...
Donc je vois ceci comme solution (sans tester) (et je ne connais pas tes aptitudes en VBA ?)
Dans le Private Module de This WorkBook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:15"), "UpDatingLinks"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stoped = True
End Sub
Dans un Module Standard
Dim Stopted As Boolean '<<<< attention à mettre au TOP du module
Sub Stopping()
Stoped = True
End Sub
Sub UpDatingLinks()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
If Stoped = False Then
Application.OnTime Now + TimeValue("00:00:15"), "UpDatingLinks"
End If
End Sub
Fonctionnement
A l'ouverture le timing est lancé à 15mn... Ensuite la Macro UpDatingLink se lance et si le Verrou "Stoped" est à False elle se relance automatiquement à 15mn...
Pour arréter le Timing il te faudra un Bouton lié à la Macro "Stoping", la fermeture met le Verrou "Stoped" à True...
Je pense que celà devrait marcher...
Mais sinon le plus simple, tu lies un bouton à cette macro
Sub ManualUpDatingLinks()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub
Voilà, et çà ce sera déjà plus simple que de fermer et ouvrir le classeur...
.... Et sans macro !!! : Menu / Edition / Liason => Bouton Mettre à Jour ....
Beaux Rêves pendant que tes liasons se font toutes seules !!
@+Thierry