Code pour lancer une application en cliquant dans un formulaire

Version imprimable

28/02/2015, 09h53
yieiyiei

Code pour lancer une application en cliquant dans un formulaire

Bonjour,

j'ai placé une image dans un formulaire, je souhaiterais lancer une application (team viewer) quand je clique sur celle-ci, quel code puis-je utiliser pour référencer le chemin de l'application à la suite du clic ?

merci

yieiyiei

La réponse est autour de shell (à adapter suivant ton cas)

Jimbolion

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function Lance_team()
On Error GoTo Err_teamviewer
dim Envoi as string
Envoi = "c:\monrep\teamviewer.exe"
'
If Len(Dir(Envoi)) = 0 Then
    reponse = MsgBox("Désolé Assistance n'est pas installé !", vbcritical, "Assistance")
Else
    Teamviewer_Exit
    X = Shell(Envoi, 1)
End If
Exit Function
Err_teamviewer:
    Resume Next
End Function

Jimbolion

Salut jimbolion

merci pour ton code, j'ai appliqué ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub ET_TEAMV_Click() 'lance l'assistance TeamViewer On Error GoTo Err_TeamViewer Dim Envoi As String Envoi = "E:\TeamViewer.exe" ' If Len(Dir(Envoi)) = 0 Then reponse = MsgBox("Désolé Assistance n'est pas installé !", vbCritical, "Assistance") Else TeamViewer_Exit X = Shell(Envoi, 1) End If Exit Function Err_TeamViewer: Resume Next End Function
mais sans succès malheureusement, chemin ok et nom ok pourtant, il faut installer quelque chose en particulier pour le shell un module ou autre ?

yieiyiei,

non rien de plus :koi:

mais à le relecture une erreur dans mon code :ooups:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub ET_TEAMV_Click()
'lance l'assistance TeamViewer
 
On Error GoTo Err_TeamViewer
Dim Envoi As String
Envoi = "E:\TeamViewer.exe"
'
If Len(Dir(Envoi)) = 0 Then
    reponse = MsgBox("Désolé Assistance n'est pas installé !", vbCritical, "Assistance")
Else
    X = Shell(Envoi, 1)
End If
Exit Function
Err_TeamViewer:
    Resume Next
 
End Function

jimbolion

04/03/2015, 11h48
yieiyiei

si je place le code "sur clic" d'une image ça ne fonctionne pas mais sur un bouton commande bien, tu sais m'expliquer ? sinon merci, derrière un bouton c'est parfait
06/03/2015, 07h00
jimbolion

yieiyiei,

Le code doit fonctionner également sur une image et son événement <SurClic>.

Es tu sûr de bien avoir choisi la bonne propriété événement ? Tu peux utiliser les techniques de debug ou mettre un msgbox après le sub pour vérifier l'appel de la fonction.

Cordialement

Jimbolion