[VBA-E] Problème avec un com add in

Version imprimable

15/05/2006, 12h44
boosty

[VBA-E] Problème avec un com add in
Bonjour à tous,

Je vous explique mon problème.
Je développe un outil pour une boîte qui est censé avoir le même environnement informatique. XP + Office 2003

J'ai créé un addin :
Code:

1 2 3 4 Set cmAddin = Application.COMAddIns("AddIn.Connect") cmAddin.Connect = True Set oAdd = cmAddin.Object
cmAddin est un comaddin
oAdd est un objet

Ceci est situé dans le Workbook_Open.

Voici le problème : Le oAdd ne s'instancie pas toujours et c'est aléatoire.
Chez un utilisateur, le matin cela ne va pas, l'après midi ca passe.
Quand ca ne va pas, le oAdd is nothing car le cmaddin is nothing

Le plus étrange, quand ca na fonctionne pas je fais CTRL + Pause et je vais dans le code. Là, je stoppe l'exécution et je relance le Workbook_Open de facon manuelle.. et devinez quoi ? Ca passe !! le oadd s'instancie correctement.

Alors, je ne sais pas vraiment pas où se situe le problème j'espère que quelqu'un saura m'aider
15/05/2006, 13h08
jmfmarques

Je pencherais pour un problème de "main à passer" au système au bon moment (un doevents, par exemple, à l'endroit critique).
15/05/2006, 13h26
boosty
Citation:

Envoyé par jmfmarques

Je pencherais pour un problème de "main à passer" au système au bon moment (un doevents, par exemple, à l'endroit critique).

C'est probable que ce soit ca car je ne pense pas que le code soit mauvais.

Que me proposes-tu ?
Code:

1 2 3 4 5 DoEvents Set cmAddin = Application.COMAddIns("SimulationToolAddIn.Connect") cmAddin.Connect = True Set oAdd = cmAddin.Object
Ou le DoEvents après ?
15/05/2006, 13h42
jmfmarques

APRES, bien évidemment (avant, il ne servirait à rien !)
15/05/2006, 13h45
boosty

Mhh je comprends pas ce que ca va changer, peux-tu m'expliquer stp ?

Le DoEvents rend bien la main à Windows no ?
Mais mon cmAddin et mon oAdd seront toujour "nothing" :?

Code:

1
2
3
4
5
Set cmAddin = Application.COMAddIns("SimulationToolAddIn.Connect")
doevents <<<<<=========================1 ici
cmAddin.Connect = True
Set oAdd = cmAddin.Object
doevents <<<=================== et un là

Citation:
Envoyé par jmfmarques
Code:

1 2 3 4 5 Set cmAddin = Application.COMAddIns("SimulationToolAddIn.Connect") doevents <<<<<=========================1 ici cmAddin.Connect = True Set oAdd = cmAddin.Object doevents <<<=================== et un là
Mais qu'est-ce qui empêcherait le "Set cmAddin.. " de foirer ?
J'aurais alors cmAddin is Nothing et la suite de la procédure n'ira pas mieux

15/05/2006, 14h24
jmfmarques

La différence est la "main passée" au système.
Essaye d'abord et vois ensuite !