Un autre problème

[KAR_inette]

J'ai un fichier qui comporte des données presente sur un classeur different sur notre reseau...
Pour mettre à jour mon classeur, il faut que je le ferme et que je l'ouvre pour avoir le message indiquant qu'il y a des liaisons avec un autre classeur, ce qui me permet de faire ma mise à jour ...
N'y à t'il pas un moyen par macro de faire une mise à jour toute les 15 mn sur ce classeur different pour m'eviter de fermer mon document à chaque fois ????
Ca serait vraiment SSSSSSSSSSSSSSSuper ;;;;;;;
merci @ tous

 

[@+Thierry]

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

 

[@+Thierry]

ERRATUM !!!

Remplacer
Dim Stopted As Boolean '<<<< attention à mettre au TOP du module


Par :
Dim Stoped As Boolean

Faute de Frappe !! lol

Bye
@+Thierry

 

[@+Thierry]

OUops suis fatigué moi !!!


TimeValue("00:00:15") => 15 Secondes !!!

TimeValue("00:15:00") => 15 Minutes !!!

Bon ben Vé au Dodo

Bonne Nuit aux 19 personnes présentent actuellement !
@+Thierry

 

[KAR_inette]

Impecable .....
Encore merci ..... pour les couche tard !!