Executer des tâches dans un programme externe

[c.zaegel]

Bonjour à tous,

Je viens solliciter votre aide pour le cas suivant :

Dans une macro j'ouvre un programme à l'aide du code suivant

Dim maint
maint = Shell("C:\Program Files (x86)\Common Files\Test\maint.exe", 1)

Le programme s'ouvre sans problème, mais à partir de là je souhaite que la macro "clique" en quelque sorte sur le menu "Fichier" puis "Ouvrir" et enfin sélectionne le fichier (toujours le même).
J'avais pensé utiliser une fonction du type SendKeys "%F" mais ça ne fonctionne pas.

Je vous remercie par avance de l'aide que vous pourrez m'apporter.

Bonne journée

 

[Fred0o]

Re : Executer des tâches dans un programme externe

Bonjour c.zaegel

La bonne solution est en effet d'utiliser la fonction "SenKeys". Cependant, cela ne fonctionne en général que sur des applis Windows. Si l'application "Maint.exe" a été développée sous DOS (Pascal / Clipper / DBase, ...) ou VAX/VMS, les SendKeys ne fonctionnent pas. Il te faut voir, si c'est une application du commerce, si cette appli est capable de gérer ses propres macros. Si c'est le cas, il y a moyen d'avancer. Sinon, j'ai bien peur que tu ne puisses pas automatiser tes tâches.

A+

 

[c.zaegel]

Re : Executer des tâches dans un programme externe

Bonjour FredOo

Tout d'abord merci pour ton aide.
Ensuite il s'agit bien d'une appli Windows, pour être précis exactement il s'agit du logiciel de maintenance de SAGE.
Peut être que je n'ai pas utilisé la fonction "SendKeys" correctement. :

Dim maint
maint = Shell("C:\Program Files (x86)\Common Files\Test\maint.exe", 1)
SendKeys ("%F")


A+

 

[Fred0o]

Re : Executer des tâches dans un programme externe

Re-bonjour c.zaegel,

Essaie donc cette syntaxe :

    Dim maint
    maint = Shell("C:\Program Files (x86)\Common Files\Test\maint.exe", 1)
    AppActivate maint
    SendKeys "%F", True

Cela devrait mieux fonctionner.

A+

 

[c.zaegel]

Re : Executer des tâches dans un programme externe

Merci beaucoup pour ton aide FredOo,

Ca fonctionne vraiment très bien maintenant.

A+