Discussion :

[boosty]

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 :

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

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

[jmfmarques]

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

[boosty]

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 :

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

1
2
3
4
5
 
DoEvents
Set cmAddin = Application.COMAddIns("SimulationToolAddIn.Connect")
cmAddin.Connect = True
Set oAdd = cmAddin.Object

Ou le DoEvents après ?

[jmfmarques]

APRES, bien évidemment (avant, il ne servirait à rien !)

[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"

[jmfmarques]

Code :

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

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à

[boosty]

Code :

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

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

[jmfmarques]

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