Discussion :

[vegastar]

bonjour,

je cherche à lancer un exécutable depuis un bouton or mon code ne fonctionne pas :

Code :

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

1
2
3
4
5
Private Sub Command3_Click(Index As Integer)
 
Shell "C:\Users\toto\Downloads\FileCopy\x86\20160501-001-v5i32.exe", vbNormalFocus
 
End Sub

j'ai le message suivant : "argument ou appel de procédure incorrect"

une autre solution possible ?

[itasoft]

ça fait pareil entre parenthèses ?


Shell ("C:\Users\toto\Downloads\FileCopy\x86\20160501-001-v5i32.exe", 0)

[vegastar]

Oui même problème, même en essayant avec

Code :

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

1
2
Dim RetVal
RetVal = Shell("C:\Users\toto\Downloads\FileCopy\x86\20160501-001-v5i32.exe", 1)

[DAUDET78]

Et comme ça :

Code :

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

1
2
3
4
5
Private Sub Command3_Click(Index As Integer)
 
Shell "C:\20160501-001-v5i32.exe", vbNormalFocus
 
End Sub

Avec ton exécutable en C:\20160501-001-v5i32.exe

[unparia]

Bonjour,
Moi, j'ai une question bête à poser :
Cet exécutable se lance-t-il normalement depuis l'explorateur, en cliquant dessus ?

[iclic]

Bonjour,

D'abord vérifier le chemin du .exe par

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 Command3_Click(Index As Integer)
 
   Dim fso
   Dim Chemin as String
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Chemin = "C:\Users\toto\Downloads\FileCopy\x86"
   If fso.FolderExists (Chemin) Then
     Msgbox(" Le chemin déclaré existe")
     Shell "C:\Users\toto\Downloads\FileCopy\x86\20160501-001-v5i32.exe", vbNormalFocus
                                else
     Msgbox("Ce chemin n'existe pas")
   End if
 
End Sub

[unparia]

Bonjour Iclic
Si le chemin n'était pas un chemin valide, Shell aurait retourné un message très différent de celui rapporté par le demandeur.

[vegastar]

Bonjour,

le chemin du fichier est bien valide, même en changeant l'emplacement, le problème reste le même.

De plus, j'aurais une autre question. Je souhaite lancer un exe qui à un nom qui varie.
Ex : 04052016v64.exe ... 10072016v64.exe

Le fichier fini toujours par v64.exe, est-ce possible de faire quelque chose comme :

Shell("C:\Users\toto\Downloads\FileCopy\x86\" & * & "v5i32.exe", 1) ?