#AutoIt3Wrapper_UseUpx=n #include Opt("GUIOnEventMode", 1) DirCreate(@ScriptDir & "\data") DirCreate(@ScriptDir & "\data\en attente") DirCreate(@ScriptDir & "\data\finis") DirCreate(@ScriptDir & "\temp") $gui = GUICreate("Ethnel-SAV :: Menu principal", 562, 314, -1, -1,-1,0x00000080) GUISetOnEvent($GUI_EVENT_CLOSE, "close") $b1 = GUICtrlCreateButton("Creer", 8, 8, 161, 89, 0) GUICtrlSetOnEvent(-1, "creer") $b2 = GUICtrlCreateButton("Editer", 8, 112, 161, 89, 0) GUICtrlSetOnEvent(-1, "editer") $b3 = GUICtrlCreateButton("Voir / Imprimer", 8, 216, 161, 89, 0) GUICtrlSetOnEvent(-1, "voir") $l1 = GUICtrlCreateLabel("Creer une fiche", 176, 32, 374, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $l2 = GUICtrlCreateLabel("Editer une fiche", 176, 137, 374, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") $l3 = GUICtrlCreateLabel("Voir / Imprimer une fiche", 176, 240, 374, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 Sleep(100) WEnd Func close() Exit EndFunc Func creer() ShellExecute(@ScriptDir & "\creer.exe") EndFunc Func editer() ShellExecute(@ScriptDir & "\editer.exe") EndFunc Func voir() ShellExecute(@ScriptDir & "\voir.exe") EndFunc