Aller au contenu

Charger et décharger une macro en VBA


eagle4

Messages recommandés

Salut à tous

 

Ceci est la manière dont je procède pour exécuter mes bidouilles en VBA et les décharger ensuite.

Ligne de prog dans le bouton de commande :

^C^C(command "_-vbarun" "MonProgramme.dvb!MaMacro")

 

Cette méthode évite d'avoir une alerte "Programme chargé", si celui-ci est déjà en mémoire.

 

Ensuite dans le programme lui même, un bouton de commande pour terminer la macro et la décharger :

Private Sub FIN_Click()

'Décharge le programme VBA

ThisDrawing.SendCommand ("_vbaunload MonProgramme.dvb ")

End

End Sub

 

Pour les 2 lignes de commande MonProgramme doit donner le chemin complet et le nom du programme à charger ou à décharger. (Exemple : E:\dao2002\Local\VBA_CARTOUCHE.dvb)

 

En espérant que cela puisse servir à d'autres.

 

@+

 

Eagle4

 

 

:yltype:

Regarde devant, derrière apporte des regrets, les côtés envies et jalousie

Lien vers le commentaire
Partager sur d’autres sites

hello

ben, moi, ce que je fais est ressemblant mais un peu différent quand même

je lance mes macros via un lisp, l'équivalent de ton bouton,

mais je n'utilise pas les boutons,

donc, disai-je, dans mon lisp la première ligne contient le

_vbaunload

la deuxième ligne contient le

_vbaload

puis le vbarun

 

on arrive au même endroit par des chemins différents,

mais le principal fait

 

ciao

 

 

Lien vers le commentaire
Partager sur d’autres sites

Intéressant les mecs,

 

Mais je vous pose la question suivante:

 

Est-il vraiment nécessaire de décharger votre programme VBA ,de la mémoire ?

 

De nos jours, la capacité de stockage de la mémoire est tellement grande, que j'ignore de décharger mon programme VBA. De plus, j'ai seulement un fichier.dvb qui contient tous mes procédures, modules et userforms (acad.dvb). Ce fichier est chagé à l'ouverture du logiciel (non d'un dessin) et prêt à être exécuter.

 

J'exécute mes procèdures via un petit programme LISP (acad.lsp) , ce qui a avantage d'avoir la commande au clavier et par icône.

Ex:

(defun c:test ()

(command "-vbarun" "Test_Forms.Test_Procedure"))

 

Je n'ai jamais rencontrer des messages d'erreur........

 

Bonne Semaine !

 

 

l'ACADien ! http://img124.exs.cx/img124/7999/start.gif

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité