Executer un programme à partir de VB

Messages postés
47
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2005
- - Dernière réponse : algo69
Messages postés
47
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2005
- 12 janv. 2004 à 20:41
Salut

j'ai tapé le code suivant pour executer internet explorer à partir de vb

Private Sub CommandButton5_Click()

Set FSys = CreateObject("Scripting.FileSystemObject")
Set monfic = FSys.CreateTextFile("E:\\fichier.bat")
With monfic 'Pour écrire dans le fichier
.writeLine "C:" 'Mettre write pour ne pas sauter à la ligne
.writeLine "cd Program Files\\Internet Explorer"
.writeLine "IEXPLORE.EXE"
.Close

End With
Msg = "Écriture réussie dans fichier.bat"
MsgBox (Msg)

toto = Shell("E:\\fichier.bat", 3)

End Sub

mais il s'execute pa
par contre si je clique sur fichier.bat directement ça s'execute

je sais pa why?
Pourriez-vous m'aider SVP
Merci
Afficher la suite 

3 réponses

Messages postés
50
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2004
0
Merci
ça marche avec
 Call Shell("E:\\fichier.bat", vbNormalFocus) 
?
Messages postés
50
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2004
0
Merci
e:\\fichier.bat
désolé pour l'erreur ... tapé et envoyé un peu trop vite :sad)
Messages postés
47
Date d'inscription
samedi 13 décembre 2003
Statut
Membre
Dernière intervention
13 mars 2005
0
Merci
ça marche
je te remercie