Comment lancer vbs avec arguments depuis vba ?Résolu

Question

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

cs_JMO · Answer

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

cs_Chrysostome · Answer

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

Comment lancer vbs avec arguments depuis vba ?

2 réponses

Votre réponse

Discussions similaires