Discussion :

[Marc_27]

Bonjour à tous,

J'ai une "application menu", développé sur Access 2003 qui lance d'autres applications, aussi développés sur Access 2003.

J'ai développé aussi une application VB.Net avec MS Visual Studio 2008, et je l'ai publié avec le "ClickOnce". Pour l'executer depuis l'explorateur du Windows, je fais un double clique sur son fichier, qu'a le format xxx.application.

J'ai essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell "c:\...\xxx.application", 1

, mais il dit "Argument ou appel de procèdure incorrect".

Comment je pourrais lancer cet application depuis mon code VBA?

Merci d'avance pour vos réponses.

[MisterS]

Bonjour ,

Tu ne peu pas lancer de xxx.application via le Shell.

CF : Microsoft => http://support.microsoft.com/kb/116384/fr

La fonction Shell() dans Access Basic nécessite que vous spécifiez un fichier ayant une extension .exe, .com, .bat ou .pif.

Si tu veux lancer une application de ce genre je pense qu'il te faudra procéder comme pour l'ouverture d'un excel/word ...

Déclarée un objet , et ensuite l'ouvrir... mais pas sur je ne connais pas la procédure de ce type.


Cordialement à toi ,

[ilank]

Bonjour,
si le fichier peut s'ouvrir depuis l'explorateur c'est qu'une action est associé à l'extension du fichier, il suffit peut-être de récupérer l'action ou la ligne de commande associée au type de fichier.
Voilà d'après la base de registre et le type de fichier,la ligne de commande d'ouverture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"rundll32.exe dfshim.dll,ShOpenVerbApplication %1"

où %1 est le fichier .application à ouvrir

[Marc_27]

Bonjour MisterS, ilank et merci de vos reponses.

J'essaye de mettre la ligne de code d'ilank dans mon code VBA, mais il donne un erreur:

si je mets des guillemets, il dit qu'il manque une ettiquéte, un numero de ligne, une instruction ou un fin d'instruction;

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rundll32.exe dfshim.dll, ShOpenVerbApplication "E:\...\xxxx.application"

il dit qu'il manque la fin de l'instruction.

Comment je dois faire pour le mettre dans mon code?

Merci encore une fois

[ilank]

Bonjour,
en vba il faut utiliser le shell pour exécuter la ligne d'appel
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Shell "rundll32.exe dfshim.dll, ShOpenVerbApplication E:\....\xxx.application"

[Marc_27]

Merci beaucoup ilank,

il a marché nickel!