Message de XL indésirable

Version imprimable

06/10/2006, 11h19
choukoff

Message de XL indésirable

Bonjour,

En VBA XL, je lance un traitement sur une autre application... à quelques chose prés comme ceci :

Dim MyApp As TerribleApplication
Set MyApp = CreateObject("TerribleApplication.Application")
Plus loin j'instancie un type d'objet bien reconnu par cette application et je lui lance un traitement de génétation de site Web que l'application gère bien:

anTerribleApplicationOject.GenerateWebSite

Jusque la tout va bien...;)

En revanche TerribleApplication met un peut de temps pour la génération du Site et XL fait apparaitre une fenètre avec le message "Microsoft XL attend la fin de l'action OLE d'une autre application" avec un bouton OK blocant la suite de l'éxécussion du script VB.

Cela ne va pas du tout :( car j'aimerais lancer ce traitement la nuit, donc en ne faisant intervenir aucune action utilisateur :roll:

Biensure j'ai essayé le Application.DisplayAlerts = True, mais cela ne marche pas.

Avez vous une idée pour résoudre cela ? 8O Parce que là !!!

Alexandre
06/10/2006, 13h01
ouskel'n'or

Je pense que tu vas devoir modifier la base de registre. Un exemple pour un message intempestif, réponse de comeochris, dernier post (ne correspond pas à ton cas mais si ça peut t'orienter...)
http://www.developpez.net/forums/sho...Y_CURRENT_USER
A toutes fins utiles
06/10/2006, 14h30
choukoff

Modifier la base de registre !!! ai ai ai , c'est pas donné cela puisque cela se déroule sous CITRIX, arggg :aie:

sinon, il y a peutetre un truc à faire sur OLE, récupérer ou paramétrer cela via un gestionnaire OLE ? mais je ne vois pas du tout ?
:?

OK, j'ai trouvé !!!!:lol:
ici

Cela fonctionne sur le principe d'interception des messages OLE

en entete de module:

Code:

1
2
Private Declare Function CoRegisterMessageFilter Lib "OLE32.DLL" _
        (ByVal lFilterIn As Long, ByRef lPreviousFilter) As Long

puis pour appeler le traitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub KillMessageFilter()
    '...
    Dim lMsgFilter As Long
    '...
 
    ' On encadre la fonction d'appel de traitement externe par le filtre des message OLE...
    CoRegisterMessageFilter 0&, lMsgFilter

    ' Appel du traitement
    'par exemple : anTerribleApplicationOject.GenerateWebSite

    ' ...et on restore le filtre des messages après l'appelle de traitement
    CoRegisterMessageFilter lMsgFilter, lMsgFilter

End Sub

OUF, merci au web online :mouarf:

06/10/2006, 16h38
ouskel'n'or

Si j'ai bien compris, c'est la base de registre de l'utilisateur qui est à modifier... Sauf, peut-être si les deux applis sont en réseau :(
Je ne suis pas assez calé pour t'aider plus, désolé :cry:
Bonne chance dans tes recherches et si tu trouves, n'hésite pas à mettre ta solution sur le forum ;)