Re: [fr-users] macro

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 : *demande_aide_fr@libreoffice.org
*Pour : *users@fr.libreoffice.org
*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:: circonvallation@gmail.com
> 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 à users+unsubscribe@fr.libreoffice.org 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