lancer et acceder a matlab depuis XL

Marsh Posté le 12-05-2004 à 15:39:24

Bonjour tout le monde
Je voudrais lancer matlab periodiquement depuis XL, sachant que le nombre de licences dans ma boite est limite. Du coup, g parfois une fenetre fatal error au lieu de matlab.
Je souhaite reconnaitre si g ouvert un matlab ou une fenetre fatal error.
J'arrive a lancer matlab (SHELL), a activer la fenetre ouverte, mais je ne parviens pas a lire le titre de la fenetre ouverte (matlab ou fenetre fatal error). Quelles sont les fonctions qui peuvent m'aider à
1-lire l'intitulé de la fenetre ouverte
2-fermer cette fenetre

Merci merci merci bien bien bien.

---------------
Je suis ce que je peux, pas ce que je veux, ne m'en voulez pas je n'y paux rien.

Marsh Posté le 12-05-2004 à 15:39:24

Marsh Posté le 12-05-2004 à 17:32:21

Les déclarations des API utilisées

Declare Function GetForegroundWindow Lib "user32" () As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Pour retrouver le handle de la fenetre au premier plan
GetForegroundWindow()

Pour récupérer le titre
Dim sTitre as string

sTitre = String(GetWindowTextLength(hw) + 1, Chr$(0))
GetWindowText hw, sTitre, Len(sTitre)
sTitre = Left$(sTitre, InStr(sTitre, Chr$(0)) - 1)

J'ai fait ça vite, j'espère que j'ai rien oublié

Marsh Posté le 13-05-2004 à 08:51:15

Merci, je vais essayer et vous tiendrai au courant

---------------
Je suis ce que je peux, pas ce que je veux, ne m'en voulez pas je n'y paux rien.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *