LXL 511 DE PATRICK 35

[PHILPHIL]

bonjour

 

grace a Gile j'ai apporté une toute petite modification a LXL 511 de patrick_35

 

a tester, ca permet de mettre le fichier excel sur calcul en manuel a l'ouverture de celui ci et de le remplir plus vite, sur un test je suis passé de 30mn a 4 mn

 

je poursuis les tests pour qu'a la fermeture du fichier celui ci repasse en calcul automatique

 

 

extrait de lisp a remplacer dans celui de patrick_35

 

merci Gile, merci Patrick

 

 ;-------------------------------------------------------------------------
; Verifie si la feuille est actif dans Excel, si non l'ouvre
;-------------------------------------------------------------------------
 (defun verifier_excel ()
   (if (not xl)
     (lancer_excel)
     )
   (if xls
     (if (not
           (eq (strcase (vlax-get xls 'fullname)) (strcase (car (vlax-ldata-get cle position_fichier_excel))))
           )
       (progn (if (not (member (strcase (vlax-get xls 'fullname)) liste_fichiers_ouvert))
                (vlax-invoke-method xls 'close :vlax-false)
                )
              (vlax-release-object xls)
              (setq xls nil)
              )
       )
     )
   (vlax-for sel wks
     (if (eq (strcase (vlax-get sel 'fullname)) (strcase (car (vlax-ldata-get cle position_fichier_excel))))
       (setq xls sel)
       )
     )
   (if (not xls)
     (progn
       (setq xls (vlax-invoke wks 'open (car (vlax-ldata-get cle position_fichier_excel))))
       ;;debut modification
       ;;    (vlax-dump-object xl T)
       (vlax-put-property xl 'calculatebeforesave 0); calcule a la sauvegarde ( 0:non, -1:oui ) changement pas nécessaire juste pour info
       (vlax-put-property xl 'calculation -4135) ; xlCalculationManual ( -4135 = manuel, -4105 = automatique )
       ;;   (vlax-dump-object xl T)
       ;;fin modification
       )
     )
   (setq classeur (vlax-get xls 'sheets))
   )

 

Phil