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 

Votre réponse

2 réponses

Meilleure réponse
cs_JMO 1855 Messages postés jeudi 23 mai 2002Date d'inscription 24 juin 2018 Dernière intervention - 5 févr. 2013 à 19:24
3
Merci
 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

Merci cs_JMO 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

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
Merci
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.