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

Signaler
Messages postés
54
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
8 juin 2002
-
cohdt007
Messages postés
1
Date d'inscription
jeudi 26 septembre 2013
Statut
Membre
Dernière intervention
26 septembre 2013
-
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

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

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

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
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
Marche po
cs_Hobby
Messages postés
116
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
17 septembre 2008

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

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

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

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

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

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

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
4
Interressant... 8/10
zaguia
Messages postés
54
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
8 juin 2002

utile
merci