' set_cell_silent.vbs
' Usage: cscript //nologo set_cell_silent.vbs "C:\x\file.xlsm" "Feuille" "A1" "Valeur"

On Error Resume Next

If WScript.Arguments.Count < 4 Then WScript.Quit 1

Dim fpath, sname, addr, val
fpath = WScript.Arguments(0)
sname = WScript.Arguments(1)
addr  = WScript.Arguments(2)
val   = WScript.Arguments(3)

Dim xl, wb, ws
Set xl = CreateObject("Excel.Application")
xl.DisplayAlerts = False
xl.Visible = False
xl.AutomationSecurity = 3   ' macros OFF
xl.EnableEvents = False     ' événements OFF

Set wb = xl.Workbooks.Open(fpath, 0, False)
If Err.Number <> 0 Then xl.Quit: WScript.Quit 2

Set ws = wb.Worksheets(sname)
If Err.Number <> 0 Then wb.Close False: xl.Quit: WScript.Quit 3

ws.Range(addr).Value = val
If Err.Number <> 0 Then wb.Close False: xl.Quit: WScript.Quit 4

wb.Save
wb.Close False
xl.Quit
WScript.Quit 0