Salut les amis,

depuis assez longtemps j'utilise une procédure pour exécuter des commandes externes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Public Sub ShellWait(ByVal JobToDo As String)
Dim hProcess As Long, RetVal As Long
 
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(JobToDo, vbMinimizedNoFocus))
    Do
        GetExitCodeProcess hProcess, RetVal
        DoEvents
'        Sleep 10
    Loop While RetVal = STILL_ACTIVE
End Sub
Cette procédure fonctionne impec sous Windows XP, mais impossible de la faire fonctionner sous Windows 7.

Sur la ligne, "hProcess=...", j'ai le message d'erreur :
erreur d'exécution 53
Fichier introuvable.

Merci d'avance pour votre aide.