1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

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

Signaler
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 -
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 -
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

Réponse 1 / 6
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 2
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
Réponse 2 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 226
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
Réponse 3 / 6
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Statut
Membre
Dernière intervention
27 août 2013
 4
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..
Réponse 4 / 6
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 2
heu désolé pour le chemin. J'ai fait un test vite fait.
Réponse 5 / 6
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 2 
Dim lancerappli As Long
lancerappli = Shell("C:\Program Files\Logs\cave.exe", vbNormalFocus)
Réponse 6 / 6
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
 2
Bonjour et Merci ucfoutu pour ton aide.

Excellente journée à toi.

Bye!
Répondre Posez votre question