Bonjour,

J'ai trouvé dans la FAQ, le code suivant pour cacher la fenêtre shell.
http://vb.developpez.com/faqvbs/?page=IV.1#wshRun

Dans mon code, je rajoute ce qui est préconisé par la FAQ
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
On Error Resume Next 
Dim Sh, version
Set Sh = WScript.CreateObject("WScript.Shell") 
version = Sh.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Papercut NG\Version")

If  IsNull(version) then
	Sh.Run("cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print",0,true)
ElseIf version <> "13.0.0.20822" then
	Sh.Run("cmd /c start \\Packages\papercut\pcng-setup.exe /SILENT /TYPE=secondary_print")
Else
	Sh.Run("sc config pcprintprovider start= auto")
	Sh.Run("net start pcprintprovider")
End If
Mais cela ne marche pas, il me dit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Erreur de compilation Microsoft VBScript: L'appel d'une fonction Sub n'admet pas de parenthèses.
Je ne comprends pas cette erreur ici dans ce cas ci.
Merci d'avance !