1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| ShellExecute(@ScriptDir & "\INDEX.xls","","","",@SW_DISABLE)
If FileExists(@ScriptDir & "\1.txt") Then
$file = FileOpen("1.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
WinMove("Microsoft Excel", "",FileReadLine($file,1),FileReadLine($file,2),FileReadLine($file,3),FileReadLine($file,4))
FileClose($file) WinSetState("Microsoft Excel","",@SW_RESTORE)
Else WinSetState("Microsoft Excel","",@SW_SHOWNORMAL)
MsgBox(262144, "Configuration d'Excel", "Validez après avoir dimensionné Excel")
$file = FileOpen("1.txt", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$size = WinGetPos("Microsoft Excel")
FileWrite($file, $size[0] & @CRLF)
FileWrite($file, $size[1] & @CRLF)
FileWrite($file, $size[2] & @CRLF)
FileWrite($file, $size[3] & @CRLF)
FileClose($file)
EndIf |
Partager