appeler un .exe

voir la réponse donnée par Eliotnaiss dans un message récent. "excel pour
ouvrir un PDF"

le programme est lancé en fonction de l'extension. (aussi valable pour un
.exeen principe)


Utilise la fonction API ShellExceute, elle se débrouille très bien toute

seule pour retrouver l'exécutable du fichier que tu fournis en paramètre :

'''''''''''''''''''''''
'(dans un module ordinaire)
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ShellOuvre()
Dim fich
fich = "LecteurCheminCompletEtFichier.pdf"
ShellExecute 0, "open", fich, "", "", 0
End Sub
'''''''''''''''''''''''

----------
Ange Ounis

"( frd )" <zaveleti@wanadoo.com> wrote in message
news:OY234aAPHHA.4376@TK2MSFTNGP02.phx.gbl...

Bonjour,
j'aimerais appeler un programme (.exe) a partir d'un bouton d'une feuille
de calcul:

Private Sub CommandButton1_Click()
appel de "programme.exe"
End Sub

Je passe les paramètres avant en réécrivant le "config.ini". C'est un
petit programme que je n'ai pas écrit et que je ne peux donc pas modifier.
Merci de votre aide
Fred

Ceci est suffisant ...voici un exemple comment ouvrir la calculatrice de windows.
Le chemin est celui de windows xp pro.

Il ne te reste plus qu'à indiquer le chemin et le nom de ton exécutable.
'---------------------
Sub test()
Shell "c:windowssystem32calc.exe", vbMaximizedFocus
End Sub
'---------------------



"( frd )" <zaveleti@wanadoo.com> a écrit dans le message de news:
OY234aAPHHA.4376@TK2MSFTNGP02.phx.gbl...
Bonjour,
j'aimerais appeler un programme (.exe) a partir d'un bouton d'une feuille de
calcul:

Private Sub CommandButton1_Click()
appel de "programme.exe"
End Sub

Je passe les paramètres avant en réécrivant le "config.ini". C'est un petit
programme que je n'ai pas écrit et que je ne peux donc pas modifier.
Merci de votre aide
Fred

merci
Fred