Dim pathScript, tabStr, iStr
'pathScript = "C:\Repertoire_de_ test\OuvreTest1.xls"
pathString = WScript.ScriptFullName
tabStr = Strings.Split(pathScript)
pathScript = ""
For iStr = LBound(tabStr) To UBound(tabStr) - 1
pathScript = pathScript & tabStr(iStr) & "\"
Next iStr
pathScript = Left(pathScript, Len(pathScript) - 1)
'...
'...
'...
Set monfichier = appli.Workbooks.Open(" " & pathString & " \test1.xls")