Bonjour,
Ci-dessous le code que j'utilise pour recalculer et réactualiser les
liens externes puis re-désactive le recalcul automatique
Claude
option explicit
Sub recalcul
Dim calcul as boolean
Dim debut as variant
Dim I as integer
if not thisComponent.isAutomaticCalculationEnabled() then
If MsgBox ("Attention calcul automatique désactivé !" _
&chr(13) &" Voulez-vous recalculer maintenant",292, now()) = 6 Then
debut=now()
MajLiens(monCalc.DDELinks)
MajLiens(monCalc.AreaLinks)
'MajLiens(monCalc.SheetLinks)
for i = 0 to thisComponent.externaldoclinks.count
thisComponent.ExternalDocLinks.refresh
next i
thisComponent.enableAutomaticCalculation(true)
thisComponent.calculate 'mise à jour des formules
modifiées
thisComponent.calculateAll
thisComponent.enableAutomaticCalculation(false)
msgbox ("Recalcul terminé," & chr(10) & "debut : " & debut _
& " fin : " & now() & chr(10) & "le recalcul automatique a été désactivé
",16,now())
End IF
endif
end sub
-------- Message original --------
*Sujet: *[INTERNET] [fr-users] macro
*De : *[email protected]
*Pour : *[email protected]
*Date : *29/05/2017 16:00
Bonjour
Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide
(http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de
votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de
votre réponse.
Email:: [email protected]
Sujet:: macro
Question:: Bonjour,
je cherche à suspendre la fonction recalcul automatique de calc par macro en
vain.
Cordialement
PS : de très nombreux recalculs ralentissent le traitement lors de déplacements
dans la feuille principale
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
