Bonjour,
Je souhaiterai lorsque j'appuie sur un bouton lancer un prog.(facile avec shell)
Le souci c'est qu'avant de lancer le prog je veux etre sur qu'il ne soit deja pas ouvert.
Code fonction:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public toto As String
Public active As String
Public Function actprocess(ByVal ProcessName As String) As Boolean
    Dim svc As Object
    Dim sQuery As String
    Dim oproc
    'Dim actif As String
    Set svc = GetObject("winmgmts:root\cimv2")
    sQuery = "select * from win32_process where name='" & ProcessName & "'"
    For Each oproc In svc.execquery(sQuery)
        If ProcesseName Is actif <> 0 Then
        Openwindow else
        Shell toto
        End If 
    Next
    Set svc = Nothing
End Function
et le code de mon bouton sur evenement click:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
active = d:\titi\tata.exe
toto = Sit
Call actprocess(tata.exe)
Et là c'est le drame.... Ca ne marche pas.