Comment lancer vbs avec arguments depuis vba ? [Résolu]

cs_Chrysostome 40 Messages postés vendredi 17 octobre 2003Date d'inscription 8 juillet 2013 Dernière intervention - 5 févr. 2013 à 11:17 - Dernière réponse : cs_Chrysostome 40 Messages postés vendredi 17 octobre 2003Date d'inscription 8 juillet 2013 Dernière intervention
- 14 févr. 2013 à 11:47
Bonjour, comment lancer vbs avec arguments depuis vba?
J'ai essayé plusieurs méthode:

Dim oWsh As Variant
Set oWsh = CreateObject("Shell.Application")
oWsh.ShellExecute "C:\Program Files\Assur\CombineAndAddBookmarks.vbs" & " /explogo1.bmp"
Set oWsh = Nothing
ou

Dim oWsh As Variant
Set oWsh = CreateObject("Shell.Application")
oWsh.ShellExecute "C:\Program Files\Assur\CombineAndAddBookmarks.vbs" & " explogo1.bmp"
Set oWsh = Nothing

etc ...

Merci de vos réponses éclairées et éclairantes.


La Vérité est dans la simplicité.
Afficher la suite 

2 réponses

Répondre au sujet
cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention - 5 févr. 2013 à 19:24
+3
Utile
 Bonsoir,


"tee_grandbois" (http://www.developpez.net/forums/d1305584/logiciels/microsoft-office/access/vba-access/lancer-vbs-arguments/) t'as donné la bonne syntaxe.

A savoir:

Un module VBA
Sub test()
   Dim oWsh As Variant
   Set oWsh = CreateObject("Shell.Application")
   oWsh.ShellExecute "H:\SCRIPTS\vba_vbs.vbs", "toto.bmp"
   Set oWsh = Nothing
End Sub



Le script vbs
Dim WshShell, objArgs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
If objArgs.Count = 1 Then MsgBox objArgs(0)
Set WshShell = Nothing
Set objArgs = Nothing


jean-marc
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_JMO
cs_Chrysostome 40 Messages postés vendredi 17 octobre 2003Date d'inscription 8 juillet 2013 Dernière intervention - 14 févr. 2013 à 11:47
0
Utile
Je te remercie de la réponse, et comme tu le signales, j'avais posté aussi sur developpez.net. Je viens de recevoir le Mail de VB me signalant ta réponse, on est le 14 Février 2013 à 11:41! C'est vraiment bien les réponses automatiques, ça part instantanément!

La Vérité est dans la simplicité.
Commenter la réponse de cs_Chrysostome

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.