Discussion :

[safine]

Salut,

J'ai essayé de lancer un programme .exe par un clik bouton, j'ai utilisé plusieurs codes mais en vain.
J'ai besoin de votre aide.
Merci d'avance.

code 1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BIBLIOTHEQUE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIBLIOTHEQUE.Click
 
        'Instance de la classe Process
        Dim proc As New System.Diagnostics.Process
        'Nom de l'executable à lancer
        proc.StartInfo.FileName = "C:\WINISIS\WISIS.EXE"
        'Arguments à passer à l'éxécutable à lancer
        proc.StartInfo.Arguments = "C:\WINISIS\DATA\ESSAI.PAR"
        'Démarrage du processus
        proc.Start()
        'On libère les ressources dont on a plus besoin.
        proc.Close() 
 
End Sub

debogage:

proc.Start(): paramètre incorrecte

code 2:

Code :

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

1
2
3
4
5
6
Private Sub BIBLIOTHEQUE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIBLIOTHEQUE.Click
 
 
Shell("C:\WINISIS\WISIS.EXE", 0)
 
End Sub

debogage:

file not found.

Merci de m'aider SVP.

[CLeBeR]

Ton ficher n'existe sûrement pas ou essaye denlever le 0 je ne vois pas à quoi il ser si non met try
Ton Shell ...
Catch ex as exception
Msgbox(ex)

[safine]

Bonjour

Merci infiniment CLeBeR pour votre réponse.
J'ai fais un (try.. catch) comme vous m'avez dis, et ce message a été affiché (File not found).

Mais c'est bizard car lorsque je suit le chemin de fichier il s’exécute correctement.

SVP, Quel est le truc?

Merci.

[CLeBeR]

Copie/colle le chemin d'accès pour être sur qu'il n'y est pas d'erreurs car c'est bizzard

[safine]

Le problème revient au fichier lui même car j'ai réussi de lancer des autres programmes qui sont installé sous (C:\Program).
le logiciel que j'ai besoin de lancer sous VB.net est WINISIS. Lors de son installation il donne le répertoire par défaut (c:\Winisis). Je l'ai désinstallé et j'ai voulu le réinstaller sous (C:\Program) malheureusement l'installation a échoué.
Avez- vous une idée sur ce logiciel?
Je me suis bloquée. SVP Aidez-moi. MERCI.

[Ascendris]

As-tu essayer d'executer ton programme en commande dos? Quoi ca fait si tu écris dans un "cmd" ton instruction "C:\WINISIS\WISIS.EXE"??

[safine]

Merci Ascendris, sous dos je me place dans le dossier (c:\winisis\) et puis je tape le nom de mon .exe (wisis.exe) et le programme se lance.
je veux que le programme se lance sous VB.net. avez vous une solution SVP?

[Ascendris]

et si tu faisais ton code 1 mais sans arguments cette fois ci?

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
Private Sub BIBLIOTHEQUE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIBLIOTHEQUE.Click
 
        'Instance de la classe Process
        Dim proc As New Process()
        With proc.StartInfo
           .FileName = "C:\WINISIS\WISIS.EXE"
           .RedirectStandardOutput = False
           .UseShellExecute = False
           .CreateNoWindow = False
        End With
        proc.Start()
        proc.WaitForExit()
        proc.Close() 
 
End Sub

[safine]

Merci Ascendris, j'ai essayé le code proposé pais il génère une erreur au niveau de la ligne

proc.Start(): Cannot start process because a file name has not been provided.

avez- vous une autre idée SVP, et merci beaucoup.

[Ascendris]

Je suis pas un expert dans les "Process" mais essaie ces 2 codes :

Code 1:

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
Private Sub BIBLIOTHEQUE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIBLIOTHEQUE.Click
 
        'Instance de la classe Process
        Dim proc As New Process()
        With proc.StartInfo
           .FileName = "C:\WINISIS\WISIS"
           .RedirectStandardOutput = False
           .UseShellExecute = False
           .CreateNoWindow = False
        End With
        proc.Start()
        proc.WaitForExit()
        proc.Close() 
 
End Sub

Code 2:

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
Private Sub BIBLIOTHEQUE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BIBLIOTHEQUE.Click
 
        'Instance de la classe Process
        Dim proc As New Process()
        With proc.StartInfo
           .FileName = "C:\WINISIS\"
           .RedirectStandardOutput = False
           .UseShellExecute = False
           .CreateNoWindow = False
           .Arguments = "WISIS.EXE"
        End With
        proc.Start()
        proc.WaitForExit()
        proc.Close() 
 
End Sub

Bonne chance