SHELLEXECUTE AVEC POSSIBILITÉ D'ATTENDRE LA FIN DE L'EXECUTION AVANT DE CONTINUE

zaguia Messages postés 54 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 8 juin 2002 - 16 avril 2002 à 21:44
cohdt007 Messages postés 1 Date d'inscription jeudi 26 septembre 2013 Statut Membre Dernière intervention 26 septembre 2013 - 26 sept. 2013 à 17:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3050-shellexecute-avec-possibilite-d-attendre-la-fin-de-l-execution-avant-de-continuer-incluant-un-getprocessid

cohdt007 Messages postés 1 Date d'inscription jeudi 26 septembre 2013 Statut Membre Dernière intervention 26 septembre 2013
26 sept. 2013 à 17:10
La nouvelle version est excllente, beaucoup plus simple et ça marche!
J'ai dû modifier la ligne suivante pour ajouter un blanc avant sParam pour que ça marche avec des paramètres. Sinon, le "process" n'est pas créé et aucun message d'erreur n'est envoyé!!!

Merci d'avoir partagé ce bout de codes merveilleux!!!

CreateProcess sFile, " " & sParam, secur, secur, 0, 0, 0, sDir, s, p
puje_fr Messages postés 7 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 5 mai 2009
23 févr. 2010 à 18:14
Excellent et très utile...
Merci Beaucoup
atafayabless Messages postés 1 Date d'inscription mardi 8 novembre 2005 Statut Membre Dernière intervention 8 novembre 2005
8 nov. 2005 à 17:55
Bonjour,

Suis méga débutant en VBScript , je veux juste utiliser ces modules pour lancer 2 appli en alternance. Seulement voilà, je fais quoi avec ces ".bas" ? désolé de la naiveté de la question mais en plus c urgentissime....
J'ai bien réussis a faire des petits ".vbs" à base de ShellExecute qui me lance mes apllis mais elle n'attendent pas la fin pour continuer ... ces modules me sont donc indispensable

Merci bcps si qq1 d'assez charitable pouvait me répondre la documentation n'est vraiment pas fournie sur VBScript.
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
17 nov. 2003 à 13:15
Marche po
cs_Hobby Messages postés 116 Date d'inscription mercredi 5 juin 2002 Statut Membre Dernière intervention 17 septembre 2008
4 nov. 2003 à 14:19
Bonjour,

Je n'arrive pas a faire fonctionne cette source (la version simple):

je fait un test en fenetre d'éxécution avec:
call executfile("PKZIP","c:pkzipc.exe -add c:derf0400.zip c:derf0400.htm","",true)

Et rien ne se passe.
Avez vous un exemple (avec notepoad c'est bon) des parametre envoyer

Merci
Olivier
cs_NewJack Messages postés 3 Date d'inscription mardi 29 juillet 2003 Statut Membre Dernière intervention 25 septembre 2003
23 sept. 2003 à 16:30
Hello,

en enlevant la gestion d'erreur, j'ai un message : votre version de windows est incompatible avec ce programme.
J'ai Windows XP, j'aimerai savoir si cela fonctionne sous WinXP

Merci
helleye Messages postés 8 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 1 juillet 2003
25 juin 2003 à 01:11
Cette source a été copier ...
cs_Doudou95 Messages postés 2 Date d'inscription dimanche 6 avril 2003 Statut Membre Dernière intervention 6 juin 2003
6 juin 2003 à 15:45
Ton source fonctionne très bien. Merci.
Je te met 10/10, tu le mérites.

Bonne prog à tous !
granddebutant Messages postés 7 Date d'inscription mardi 9 avril 2002 Statut Membre Dernière intervention 4 juillet 2002
18 avril 2002 à 11:09
Merci.
Pour info,pour tourner sous windows 2000 j'ai du modifier la fonction getshellprocessId en rajoutant:
Case 0
GetShellProcessId = GetProcessIdNT
et ça fonctionne à merveille ! Encore Bravo.
ShanaBurns Messages postés 30 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 30 mai 2003
17 avril 2002 à 21:20
Granddebutant : Premierement "executfile" est une sub pas une function donc tu devrais essayer de l'appeller comme ceci
executfile "c:winnt otepad.exe", "","c:winnt", true

Deuxiemement tu devrais mettre les "" dans le nom du fichier et repertoire.

Dernierement pour les interressés.. d'ici la fin de la journée je vais uploader une version optimiser et de beaucoup simplifier de ce code... qui va ce tenir en seulement quelque ligne.
granddebutant Messages postés 7 Date d'inscription mardi 9 avril 2002 Statut Membre Dernière intervention 4 juillet 2002
17 avril 2002 à 20:05
Il me serait tres utile mais je ne parviens pas a le faire tourner.
je place Retval=executfile("c:winnt
otepad.exe", "","c:winnt", true)
Et je reçois le message suivant: Fonction ou variable attendue !
J'ai pourtant les 2 modules en ligne.
Peut-on me dire où se situe mon erreur ?
Merci.
Tilois Messages postés 721 Date d'inscription dimanche 10 juin 2001 Statut Membre Dernière intervention 27 mars 2011 7
17 avril 2002 à 10:49
Interressant... 8/10
zaguia Messages postés 54 Date d'inscription mercredi 9 janvier 2002 Statut Membre Dernière intervention 8 juin 2002
16 avril 2002 à 21:44
utile
merci
Rejoignez-nous