Super merci, je teste au plus vite !
Bernard Marcelly a écrit :
Bonjour Laurent Costy
Message du 2006-08-24 15:06:
L'un des fichier sources a été modifié mais, après lancement de la
macro dans le fichier considéré, point de mise à jour....
J'apprends tous les jours ;)
Il y a différents types de liens:
- lien DDE (par copier/coller DDE d'une cellule d'un autre classeur)
- lien d'une zone de cellules d'un autre classeur
- lien d'un feuille d'un autre classeur
- lien hypertexte (mais c'est un autre sujet).
Il faut donc mettre à jour chacun des 3 premiers types de liens.
Sub MettreAjourTousLiens
dim monCalc as object
monCalc = thisComponent
MajLiens(monCalc.DDELinks)
MajLiens(monCalc.AreaLinks)
MajLiens(monCalc.SheetLinks)
MsgBox("Mise à jour effectuée")
End Sub
Sub MajLiens(conteneurLiens)
dim unLien As Object, n as long
for n = 0 to conteneurLiens.Count -1
unLien = conteneurLiens(n)
unLien.refresh
next
End Sub
Cela marche que le document lié soit préalablement ouvert ou non.
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Laurent COSTY
Directeur Adjoint
Association Planète Sciences
16 place Jacques Brel
91130 RIS ORANGIS
Tél. 01 69 02 76 14
Fax 01 69 43 21 43
Site Internet : planete-sciences.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
