Bonjour,

J'aimerais savoir ce que fait ce programme en VBS (je n'y connais strictement rien en VBS..)
Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim myObj
 
Err.Clear
On Error Resume Next
 
WSUnit.Message "Chargement script"
 
Set myObj = CreateObject("scriptFT.clsScriptFT")
 
If myObj Is Nothing Then
	MsgBox "scriptFT.dll not found"
Else
	myObj.SetWSUnit(WSUnit)
	myObj.DoIt()
	Set myObj = Nothing
End If