Discussion :

[lasuede001]

Bonjour,

Je travail dans un laboratoire, j'aimerais lancer des analyses de gaz à heure fixe. Pour cela, j'aimerais créer une macro Excel pour lancer une application (le logiciel qui fait les analyses gaz) et ensuite sélectionner le menu fichier de cette application pour sélectionner l'action "nouvelle analyse".
Pour lancer une application, j'ai trouver la fonction shell() mais je ne sais pas comment naviguer dans les menus du logiciel... Quelqu'un pourrait-il m'aider sil vous plait?

Merci d'avance,

Vivien

[Jean-Philippe André]

Bonjour Vivien,
bienvenue sur DVP

Concernant le lancement a horaire fixe, je peux te recommander l'utilisation des taches planifiees

Plusieurs tutoriels a ce sujet sont disponibles ici

Pour la partie manipulation de l'application par Excel, il faut voir si une approche par "touches clavier" est envisageable (combinaison Alt+ quelque chose par exemple).

[lasuede001]

Bon j'avance petit à petit, en fait mon logiciel est ouvert 24h/24 donc je n'ai besoin que d'activer la fenêtre correspondante. Avec le code ci-dessous, la fenetre de mon logiciel s'active bien mais ils commandes de simuler de pression des touches ne fonctionne pas...
Qu'ai je oublier? Je prends toutes les idées !

CODE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Any) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
 
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
 
m_hWnd = FindWindow(vbNullString, "TotalChrom Navigator - AUTOSYSTEM")
Call SetForegroundWindow(m_hWnd)
 
SendKeys "%R", True
SendKeys "%S", True
 
End Sub

MERCI D'AVANCE

vivien