Lancer autre application VB 6.0 à partir d'un bouton [Résolu]

Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
- - Dernière réponse : js8bleu
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
- 3 févr. 2010 à 12:02
Bonjour à tous,

j'aimerai que lorsque je clique sur un bouton qu'il me lance une autre application VB 6.0 qui se trouve dans C:\Program Files\Logs\cave.exe

Merci d'avance.

Cordialement.
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
3
Merci
Bonjour lolokun et Merci pour ton intérêt. J'ai pu trouver la solution.

Dim lancerappli As Long
lancer = Shell("C:\Documents and Settings\Administrateur\Bureau\Test\Projet1.exe", vbNormalFocus)


Merci et excellente journée.

Cordialement

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 135 internautes nous ont dit merci ce mois-ci

Commenter la réponse de js8bleu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
3
Merci
Bonjour,
L'utilisation de la fonction Shell devrait ici suffire largement !
toto = Shell("C:\Program Files\Logs\cave.exe", vbnormalfocus)

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 135 internautes nous ont dit merci ce mois-ci

Commenter la réponse de ucfoutu
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
3
0
Merci
Bonjour,

utilises l'API shellexecute, tu trouveras plein d'exemples sur ce sujet sur le forum..

L'expérience, c'est une connerie par jour, mais jamais la même..
Commenter la réponse de lolokun
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
0
Merci
heu désolé pour le chemin. J'ai fait un test vite fait.
Commenter la réponse de js8bleu
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
0
Merci
Dim lancerappli As Long
lancerappli = Shell("C:\Program Files\Logs\cave.exe", vbNormalFocus)
Commenter la réponse de js8bleu
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
0
Merci
Bonjour et Merci ucfoutu pour ton aide.

Excellente journée à toi.

Bye!
Commenter la réponse de js8bleu