a partir d'une macro, lancer un VBSRésolu

Question

Bonjour,

Connaissez vous la commande sous VBA pour lancer automatiquement le script contenu dans un fichier VBS ?

Merci d'avance
@+

ydu

PCPT · Accepted Answer

ShellExecute 0&, "open", "C:	est.vbs", 0&, vbNullString, 0&

cs_ghuysmans99 · Answer

Shell(PathName, ...) _______________________________________________________________________ VB.NETis good ...VB6is better

ydu · Answer

Cela ne semble pas fonctionner j ai certainement fais une faute peux tu m aider stp

Sub test()
Shell "C:\Documents and Settings\ydu\Bureau\Decoupe.vbs"
End Sub

ydu

PCPT · Answer

salut,

vbs n'est pas un exe, çà ne fonctionnera pas!

il faut passer par l'api shellexecute :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

utilisée comme ceci :
ShellExecute Me.hwnd, "open", "C:	est.vbs", 0&, vbNullString, 0&

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

ydu · Answer

Salut merci pour ta réponse.

J'ai fais un copier coller du code mais cela ne fonctionne pas j'ai du tres certainement mal m'y prendre merci pour voytre aide

voici ce que j ai ecrit dans VB

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

ShellExecute Me.hwnd, "open", "C:\Documents and Settings\ydu\Bureau\decoupe.vbs", 0&, vbNullString, 0&

End Sub

ydu

PCPT · Answer

Private Declare..., comme sont nom l'indique on déclare dans la section déclarations, tout en haut du code
++

ydu · Answer

C'est bien ce que j'ai fais mais cela ne fonctionne pas
impossible de lancer la macro

ydu

PCPT · Answer

'tout en haut de ta form ou de ton module




Private
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As
String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long






sub tamacro()




'ton code....




msgbox "je suis dans la procédure"






'l'appel à l'API




ShellExecute Me.hwnd, "open", "C:	est.vbs", 0&, vbNullString, 0&




end sub


<hr size="2" width="100%" />
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

ydu · Answer

Je suis vraiment desolé mais il me marque un message d'erreur à savoir:

UTILISATION INCORRECTE DU MOT CLE ME

ydu

ydu · Answer

Merci beaucoup !
@+
ydu

A partir d'une macro, lancer un VBS

10 réponses

Votre réponse

Discussions similaires