Lancer un fichier VBS avec la fonction Environ

[Fredman]

Salut a tous

J'essaie de lancer un fichier vbs mais la synthase du chemin est fausse.. qu'est-ce qui va pas ?

Je veux que le chemin vers le dossier TEMP soit relatif et pour cela j'utilise la fonction "Environ"

Shell "wscript Environ("TEMP") & "\fichier.vbs"", vbNormalFocus

Cordialement

 

[NezQuiCoule]

Re : Lancer un fichier VBS avec la fonction Environ

Bonjour,

Essayez :

Shell "wscript " & Environ("TEMP") & "\fichier.vbs", vbNormalFocus

 

[Fredman]

Re : Lancer un fichier VBS avec la fonction Environ

Bonjour,
Essayez :

Shell "wscript " & Environ("TEMP") & "\fichier.vbs", vbNormalFocus

Merci NezQuiCoule ça fonctionne 😀

 

[Fredman]

Re : Lancer un fichier VBS avec la fonction Environ

Une dernière question afin de dormir moins con 😱

A quoi sert vbNormalFocus ?

 

[NezQuiCoule]

Re : Lancer un fichier VBS avec la fonction Environ

En théorie cela sert à gérer le comportement d'apparition de la fenêtre qui s'ouvre, tu peux par exemple la faire apparaître minimisée ou bien en plein écran, avec le focus ou non..

Ci-dessous la liste des options qui apparaissent :

 

[Fredman]

Re : Lancer un fichier VBS avec la fonction Environ

Ah ok


Si je veux que la fenêtre soit invisible, je dois mettre vbNormalNoFocus ou vbHide ?

 

[NezQuiCoule]

Re : Lancer un fichier VBS avec la fonction Environ

Hmm à vue de nez je dirai vbHide pour la cacher entièrement et vbMinimizedNoFocus pour qu'il apparaisse en réduit

 

[Staple1600]

Re : Lancer un fichier VBS avec la fonction Environ

Bonjour Fredman, NezQuiCoule, à tous

Une autre façon de faire (puisqu'on est dans le VBS)

Sub a()
Dim objShell, FVbs$
Set objShell = CreateObject("Wscript.Shell")
FVbs = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\fichier.vbs"
objShell.Run FVbs, 0, True
End Sub

NB: Par ce biais aucune fenêtre ne s'affiche à l’exécution du script VBS.

 

[Fredman]

Re : Lancer un fichier VBS avec la fonction Environ

Merci a vous 2..🙂