Export excel win10

[willy95]

Bonjour à vous tous,

 

Il y à bien longtemps que j'utilise un code et une macro excel pour exporter mes blocs avec attributs dans excel et la : mauvaise surprise :blink:,

mise à jour Windows, maintenant version 10 et le code ne fonctionne plus :angry: , j'ai essayer comme à mon habitude de tout bricoler mais sans resultat <_< ,

alors si quelqu'un comprends le pourquoi du comment qui ne marche plus, j'en serai bien reconnaissant. ;)

"J'ai pensé (car oui je pense) que cela viendrait d'une histoire d'orientation de répertoire, mais la je bloque aussi." :(

 

(defun RM (/ abks aexc asht find x xbks xlpath xshts)

( setq xlpath (FindFile "Import-Surfaces.XLS"))

(setq aexc (vlax-get-or-create-object "Excel.Application")

xbks (vlax-get-property aexc 'Workbooks))

(if (not (vl-file-systime xlpath))

(progn (setq find nil)

(setq abks (vlax-invoke-method xbks "Add")))

(progn (setq find T)

(setq abks (vlax-invoke-method xbks "Open" xlpath))))

(setq xshts (vlax-get-property abks "Sheets")

asht (vlax-get-property xshts "Item" 1)) ;<-- nombre option

(vla-put-visible aexc :vlax-true)

(vlax-put-property aexc "ScreenUpdating" :vlax-true) ; pour voir les changements

(vlax-put-property aexc "DisplayAlerts" :vlax-true) ; initialise l'interaction

(vlax-invoke-method asht "Activate") ;une option

(vlax-invoke-method aexc "RUN"  "Import_AUTOCAD")         ;<-- nom de la macro dans le fichier Excel 

(vlax-invoke-method abks 'SaveAs xlpath -4143 nil nil :vlax-false :vlax-false 1 2 )

(mapcar (function (lambda (x) (vl-catch-all-apply (function (lambda ()

(progn

(if x (vlax-release-object x))))))))

(list asht xshts abks xbks aexc))

(setq aexc nil)

(gc)
(gc)
(princ))
(princ)
(rm)

[Patrick_35]

Salut

 

Après avoir testé sans la macro, je ne vois rien qui cloche et aucune erreur, mais sur un fichier Excel vierge.

Regarde si ce n'est pas la macro Excel qui pose problème.

 

@+

[DenisHen]

Salut.

 

Comme le souligne Patrick_35, il se peut qu'il manque quelque chose dans ta macro Excel.

 

Regarde dans le VBA d'Excel, menu Outils -> Références... Vérifie qu'il n'y a pas de "MANQUANT".