Même si t'as question me parait vraiment TRES vague, j'ai peut etre une réponse pour toi :
Shell lance un programme exécutable.
Id=Shell (NomdeProgramme) 'lance l'application NomdeProgramme
on peut utiliser aussi:
Id=Shell( NomdeProgramme, TypedeFenetre, Wait, TimeOut)
TypedeFenêtre utilise l'énumération AppWinStyle pour définir le type de fenêtre de l'application lancée: AppWinStyle.MaximizedFocus ouvre par exemple l'application en plein écran.
Si vous souhaitez attendre la fin du programme avant de continuer, vous devez définir Wait à True.
TimeOut est le nombre de millisecondes à attendre pour la fin du programme si Wait est True.
Exemple:
ID = Shell("""C:\Program Files\MonFichier.exe"" -a -q", , True, 100000)
Dans une chaîne une paire de guillemets doubles adjacents ("" ) est interprétée comme un caractère de guillemet double dans la chaîne. Ainsi, l'exemple précédent présente la chaîne suivante à la fonction Shell :
"C:\Program Files\MonFichier.exe" -a -q
La fonction AppActivate rend active l'application ou la fenêtre définie par son nom ou son Id (Numéro indentificateur).
Dim ID As Integer
On peut utiliser:
AppActivate("Untitled - Notepad" )
ou
ID = Shell(NOTEPAD.EXE", AppWinStyle.MinimizedNoFocus)
AppActivate(ID)
Tu intègre ce que je viens de te donner au bouton en question.
Info trouvée ici
J'espère avoir répondu à ta question.
