Boite de dialogue executer sans api

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 332 fois - Téléchargée 73 fois

Contenu du snippet


Source / Exemple :


Private Sub Command1_Click()
Dim ObjExec
Set ObjExec = CreateObject("shell.Application")
ObjExec.filerun
End Sub

A voir également

Ajouter un commentaire Commentaires
BERU80 Messages postés 19 Date d'inscription lundi 27 juin 2005 Statut Membre Dernière intervention 7 octobre 2008
24 nov. 2007 à 19:21
oui bon petit code mais je ne lui trouve d'utilité plus que ça.
arch enemy123456 Messages postés 26 Date d'inscription jeudi 9 novembre 2006 Statut Membre Dernière intervention 8 mai 2007
9 nov. 2006 à 18:12
bon travail Christian C bravo
mais svp si vous avez un aidé
moi j ai envi de lancer via une bouton crée sur excel (VBA) une application et executer en meme temps un bouton "play" sur la barre d outil de cette application.
bon pour le lancement de l application c bon voila le code

private sub bouton-comparer_Click()
shell "C:\Program Files\Softinterface, Inc\DiffDoc\DiffDoc.exe"
end sub

mais il me reste l'execution du bouton :( :(
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
23 juil. 2006 à 18:57
Merci, c'est simple et efficace (marche sous xp en tout cas)
Drgn13 Messages postés 86 Date d'inscription vendredi 14 mars 2003 Statut Membre Dernière intervention 26 mars 2007
2 févr. 2004 à 22:38
je pense que c'est une variable de type object normalement
cs_madVinz Messages postés 48 Date d'inscription lundi 22 octobre 2001 Statut Membre Dernière intervention 6 août 2002
11 juil. 2002 à 01:16
ObjExec c'est quel type de variable ?
joli petit code ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.