Discussion :

[patricktoulon]

Bonjour
Bref j'ai eu de tout sauf quelque chose sur ce que j'ai demandé
alors je répète
comment faire une gestion d'attente sur un shell ou Wsshell autrement qu'avec des pause "wait"

Code :

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

1
2
R=shell(progamme,fichier)
'gestion d'attente

ou

Code :

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

1
2
3
With CreateObject("WScript.Shell")
        retour = .Run("""C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe""" & "C:\Users\polux\Desktop\exemple.pdf", 1, False)
    'gestion d'attente

[Invité]

Bonjour Patrick,

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
Private Type SYSTEMTIMExAnnee As Integer
xMois As Integer
xJourSemaine As Integer
xJour As Integer
xHeure As Integer
xMinute As Integer
xSeconde As Integer
xMilliseconde As Integer
End Type
Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Sub test()
Dim TempsSysteme As SYSTEMTIME, TempsTemporaire
 GetSystemTime TempsSysteme
a = TempsSysteme.xMilliseconde
 While a + 100 > TempsSysteme.xMilliseconde
 GetSystemTime TempsSysteme
    DoEvents
Wend
End Sub

[patricktoulon]

bonjour robert

j'avais oublié de préciser sans api
il y a pas un truc du genre pour le whshell

Code :

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

do:a=whshell.app.activate:loop until a=true

j'avais vu ca quelque part mais je le trouve plus