Bonjour à tous les Grands Maîtres, et les autres.
Voilà, j'ai fait un petit programme en mdb (mde plus exactement) pour qu'un vieux monsieur puisse gérer sa discographie. J'ai donc mis un raccourci sur le bureau, mais il n'arrive pas à ne pas rappuyer sur ce raccourci, et donc ouvrir une nouvelle fenêtre du programme. Je me suis mis en quête puisqu'il n'arrive pas à intégrer le Alt-Tab de développer en VB6 une petite appli, après avoir pêché ça et là des indications.

Comment faire pour donner le focus au programme déjà ouvert?

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
 
Private Sub Form_Load()
   Dim RetVal
   Dim RetDir
   If RetDir = "" Then
   RetVal = Shell("C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE C:\Biblio\Biblio.mde", 3)
   Open "C:\Biblio\RetValeur.txt" For Output As #1
   Write #1, RetVal
   Close
 
Else
 
   Open "C:\Biblio\RetValeur.txt" For Input As #1
   Input #1, RetVal
   AppActivate RetVal
   Close
End If
 
End
 
End Sub
Voilà quelques choses de simple, mais qui ne me donne pas satisfaction, à savoir mettre le focus sur le programme qui s'ouvre ou qui est déjà ouvert.

Merci de vos réponses éclairées et éclairantes.