Discussion :

[zentaf]

Bonjour,
Je veux réaliser un projet sous VB6 qui s'ouvre quand un autre programme sera lancé, par exemple : word ou exel.
Veuillez m'aider SVP
Salutations distinguées.

[ProgElecT]

Bonsoir
Il me semble que cela n'est pas réalisable dans le sens que tu demandes.
Par contre il est possible de lancer un programme ecrit en VB, qui travail en arriere plan sans être affiché, qui lit toutes les fenêtres, processus en cours, de la ce programme pourrait lancer n'importe quel autres programmes.
Je ne sais si je suis claire dans mon expliquation

[zentaf]

Est-ce-que vous pouvez me le décrire, SVP ?

[ProgElecT]

Un peu long, mais j'avais supprimé l'abonnement de ton post, je viens de le retrouver en remontant les pages du forum

dans un module

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Public Declare Function SetTimer Lib "User32" ( _
        ByVal hWnd As Long, ByVal nIDEvent As Long, _
        ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "User32" ( _
        ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
 
Public Declare Function EnumWindows Lib "User32" ( _
        ByVal wndenmprc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, _
        ByVal lpString As String, _
        ByVal cch As Long) As Long
 
Public Sub TimerProc(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
'routine executé suivant le Timer
Form1.Caption = ""
'appel de la fonction de recherche de toutes les fenetre(programme) en cour
EnumWindows AddressOf EnumCallback, 0
End Sub
 
Public Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
Dim buf As String * 256
Dim Titre As String
Dim Longueur As Long
'Récupère le titre de la fenêtre
Longueur = GetWindowText(app_hWnd, buf, Len(buf))
Titre = Left$(buf, Longueur)
If Trim$(Titre) <> "" Then
 'Vérifie si le titre de la fenêtre correspond au nom recherché
 If InStr(Titre, "Microsoft Word") <> 0 Then
  Form1.Caption = Titre: Form1.WindowState = vbNormal
  DoEvents
 End If
End If
EnumCallback = 1 'Poursuit l'énumération
End Function
 
Public Sub Main()
Form1.Show
End Sub

dans le Form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Private Sub Form_Load()
Me.Visible = True ' imperatif
DoEvents
SetTimer Me.hWnd, 0, 5, AddressOf TimerProc ' on crée un timer de 5 secondes
DoEvents
Me.WindowState = vbMinimized
End Sub
Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hWnd, 0 ' suppression du timer créé
End Sub

Le principe est là, reste à adapter suivant tes besoins

[Vld44]

Eh bien sinon il y a les macros VBA ... mais je ne sais pas trop comment cela fonctionne n'en ayant jamais utilisé.