Discussion :

[Invité]

Bonjour tout le monde
Je suis actuellement dans une entreprise et j'essaie actuellement de lancer DraftSight à partir de VBA.
Pour l'instant j'ai ce code qui marche avec beaucoup d'application.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sub lancement1()
   <div style="margin-left:40px">Set DS1 = CreateObject("DraftSight.Application")</div>      <div style="margin-left:40px"> DS1.Visible = True</div>End Sub

J'ai le message d'erreur suivant : Microsoft Office Excel attend la fin de l'exécution d'une action OLE d'une autre application
Puis celui-ci : Erreur d'exécution 429: Un composant ActiveX ne peut pas créer d'objet.

Si quelqu'un parmis vous pouvez m'aider ou me donner une solution autre j'en serai ravi !
Bon après midi à vous !

[parmi]

Bonjour,

Je ne connais pas DraftSight, mais bon...
Il y a un forum sur leur site où tu devrais pouvoir avoir de l'aide.

Sinon, regarde ICI
Il y a quelques explications (anglaises) et quelques exemple de code...

[Menhir]

Est-ce que dans Outils > Références, tu as indiqué que tu chargeais la bibliothèque d'objets de ce logiciel ?

[Invité]

Excusez moi pour le retard et je vous remercie de vos réponses rapides.

Parmi:
Alors j'ai regardé ton site malheureusement il n'explique pas comment lancer l'application mais comment la connecter..

Menhir:
Oui j'ai bien tout activé et chargé malheureusement.
Je ne sais pas si c'est lié au fait que je sois sur une version non premium.

Si vous avez encore des réponses à m'apporter je suis preneur
Bonne journée!

[parmi]

Quand tu dis que tu as activé les références, c'est bien dsautomation.dll ?

[parmi]

Dans les exemples du site, ils utilisent GetObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim dsApp As DraftSight.Application
 
‘Connect to DraftSight
Set dsApp = GetObject(, “DraftSight.Application”)

Et ils suppriment les actions en cours (peut-être celle qui cause ton message d'erreur ?)
‘Abort any command currently running in DraftSight

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  dsApp.AbortRunningCommand

[Invité]

Oui c'est bien cela.
J'ai sans doute trouver la solution. C'est simplement l'ordinateur sur lequel je travaille ( système d'exploitation vista) ou la version d'excel car en essayant sur un ordinateur plus récent avec Excel 2013 cela marche.
Je vous remercie de votre aide!
Bon après midi à vous

[ngohoangstm]

Oui c'est bien cela.
J'ai sans doute trouver la solution. C'est simplement l'ordinateur sur lequel je travaille ( système d'exploitation vista) ou la version d'excel car en essayant sur un ordinateur plus récent avec Excel 2013 cela marche.
Je vous remercie de votre aide!
Bon après midi à vous

thanks for your solved .How can i contact to you? I need you help somethings about VBA for Draftsight.my email: ngohoangstm at gmail.com .Thank u!