#include #include ;#include #NoTrayIcon Global $Largeur = 400, $Hauteur = 280, $Titre = "Statistikor " Local $Ver = "v1.0" ; ----- I. Création de la fenêtre principale [Choix de l'action à effectuer] + Insertion du logo ----------------------------------------------------------------- $stats = GUICreate($Titre & $Ver, $Largeur, $Hauteur, 100, 100) GUISetState(@SW_SHOW) GUISetBkColor(0x046380) $logo = GUICtrlCreatePic("C:\Users\vista\Desktop\fiducial.jpeg", 70, 10, 100, 100) GUISetState (@SW_SHOW) ; ----- I.1 Déclaration des variables pour les fichiers et feuilles Excel [PREPARATION] -------------------------------------------------------------------------- ; Fichiers : ;----------- $prepa_gal_2009 = "C:\Users\vista\Desktop\STATISTIQUES\Stats Générales V2\PREPARATION\2009\Préparation 2009.xlsm" $prepa_2009 = "Z:\Préparation\STATS PREPARATION\Statistiques\-- PREPARATION-2009 --.xls" ; Feuilles : ; ---------- $sh_janvier2009 = "JAN 2009" $sh_fevrier2009 = "FEV 2009" $sh_juillet2009 = "JUIL 2009" $sh_1ertrimestre2009 = "Trimestre 1" ; ----- I.2 Message de choix du service --------------------------------------------------------------------------------------------------------------- $welcome = GUICtrlCreateLabel("Veuillez choisir un service, svp :", 150, 30, 300, 20) GUICtrlSetColor($welcome, 0xff0000) GUICtrlSetFont($welcome, 10, 800, 4, "Arial") ; ----- I.3 Création des 4 boutons de service + 1 bouton "quitter" ----------------------------------------------------------------------------------- $prepa = GUICtrlCreateButton("Préparation", 200, 60, 100, 30) $stock = GUICtrlCreateButton("Stock", 200, 100, 100, 30) $achats = GUICtrlCreateButton("Achats", 200, 140, 100, 30) $SAV = GUICtrlCreateButton("SAV", 200, 180, 100, 30) $exit = GUICtrlCreateButton("Quitter", 200, 240, 100, 30) ; ----- I.4 Création d'une boucle "attente de saisie" pour le choix du service ----------------------------------------------------------------------- While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $prepa ; ----- II. Création de la fenêtre "préparation" ----------------------------------------------------------------------------------------------------- $menu_prepa = GUICreate("Service Préparation", 300, 200, 370, 350) GUISetState(@SW_SHOW) ; ----- II.1 Message de choix du service -------------------------------------------------------------------------------------------------------------- $choix_prepa = GUICtrlCreateLabel("Quelles statistiques souhaitez-vous entrer :", 15, 20, 300, 20) GUICtrlSetFont($choix_prepa, 10, 800, 4, "Arial") ; ----- II.2 Création des 2 boutons "choix de la périodicité" + 1 bouton retour ---------------------------------------------------------------------- $prepa_mensuelle = GUICtrlCreateButton("Mensuelles", 100, 50, 100, 30) $prepa_trim = GUICtrlCreateButton("Trimestrielles", 100, 90, 100, 30) $prepa_retour = GUICtrlCreateButton("Retour", 100, 150, 100, 30) ; ----- II.3 Création d'une boucle "attente de saisie" pour le choix de la périodicité --------------------------------------------------------------- While 1 $msg_prepa = GUIGetMsg() Switch $msg_prepa Case $GUI_EVENT_CLOSE Exit Case $prepa_mensuelle ; ----- III. Création de la fenêtre "année" ---------------------------------------------------------------------------------------------------------- $menu_annee = GUICreate("Choix de l'année", 220, 150, 780, 280) GUISetState(@SW_SHOW) $choix_annee = GUICtrlCreateLabel("Veuillez choisir l'année, svp :", 15, 20, 300, 20) GUICtrlSetFont($choix_annee, 10, 800, 4, "Arial") ; ----- III.1 Création des 4 boutons pour chaque année ----------------------------------------------------------------------------------------------- $2009 = GUICtrlCreateButton("2009", 25, 50, 80, 30) $2010 = GUICtrlCreateButton("2010", 110, 50, 80, 30) $2011 = GUICtrlCreateButton("2011", 25, 100, 80, 30) $2012 = GUICtrlCreateButton("2012", 110, 100, 80, 30) ; ----- III.2 Création d'une boucle "attente de saisie" pour le choix de l'année --------------------------------------------------------------------- While 1 $msg_annee = GUIGetMsg() Switch $msg_annee Case $GUI_EVENT_CLOSE Exit Case $2009 ; ----- III.3 Création de la fenêtre "mois" ---------------------------------------------------------------------------------------------------------- $menu_mois = GUICreate("Choix du mois", 400, 200, 690, 470) GUISetState(@SW_SHOW) $choix_mois = GUICtrlCreateLabel("Veuillez choisir le mois, svp :", 100, 15, 300, 20) GUICtrlSetFont($choix_mois, 10, 800, 4, "Arial") ; ----- III.4 Création des 12 boutons de chaque mois + Boucle "attente de saisie" ---------------------------------------------------------------------- $janvier = GUICtrlCreateButton("Janvier", 25, 50, 80, 30) $fevrier = GUICtrlCreateButton("Février", 110, 50, 80, 30) $mars = GUICtrlCreateButton("Mars", 195, 50, 80, 30) $avril = GUICtrlCreateButton("Avril", 280, 50, 80, 30) $mai = GUICtrlCreateButton("Mai", 25, 100, 80, 30) $juin = GUICtrlCreateButton("Juin", 110, 100, 80, 30) $juillet = GUICtrlCreateButton("Juillet", 195, 100, 80, 30) $aout = GUICtrlCreateButton("Août", 280, 100, 80, 30) $septembre = GUICtrlCreateButton("Septembre", 25, 150, 80, 30) $octobre = GUICtrlCreateButton("Octobre", 110, 150, 80, 30) $novembre = GUICtrlCreateButton("Novembre", 195, 150, 80, 30) $decembre = GUICtrlCreateButton("Décembre", 280, 150, 80, 30) While 1 $msg_mois = GUIGetMsg() Switch $msg_mois Case $GUI_EVENT_CLOSE Exit Case $janvier ;_ExcelBookOpen($prepa_gal_2009) ;_ExcelSheetActivate($prepa_gal_2009, $sh_janvier2009) ;_ExcelBookOpen($prepa_2009) ;_ExcelSheetActivate($prepa_2009, $sh_1ertrimestre2009) Case $fevrier ;_ExcelBookOpen($prepa_gal_2009) ;_ExcelSheetActivate($prepa_gal_2009, $sh_fevrier2009) ;_ExcelBookOpen($prepa_2009) ;_ExcelSheetActivate($prepa_2009, $sh_1ertrimestre2009) Case $mars Case $avril Case $mai Case $juin Case $juillet _ExcelBookOpen($prepa_gal_2009) _ExcelSheetActivate($prepa_gal_2009, $sh_juillet2009) if _ExcelSheetActivate($prepa_gal_2009, $sh_juillet2009) = 1 Then Msgbox(0, "Aucune erreur", "Aucune erreur") Else Msgbox(0, "@Error = "&@error, "@Error = "&@error) Endif _ExcelSheetActivate($prepa_gal_2009, $sh_juillet2009) ;_ExcelBookOpen($prepa_2009) ;_ExcelSheetActivate($prepa_2009, $sh_1ertrimestre2009) ;send("!") ;send("c") ;send("{TAB}") ;send("{TAB}") ;send("{ENTER}") ;send("the_end") ;send("{ENTER}") Case $aout Case $septembre Case $octobre Case $novembre Case $decembre EndSwitch WEnd ; ----- Fin du switch et de la boucle "Année 2009" --------------------------------------------------------------------------------------------------- Case $2010 $menu_mois = GUICreate("Choix du mois", 400, 200, 690, 470) GUISetState(@SW_SHOW) $choix_mois = GUICtrlCreateLabel("Veuillez choisir le mois, svp :", 100, 15, 300, 20) GUICtrlSetFont($choix_mois, 10, 800, 4, "Arial") ; ----- III.5 Création des 12 boutons de chaque mois + Boucle "attente de saisie" --------------------------------------------------------------------- $janvier = GUICtrlCreateButton("Janvier", 25, 50, 80, 30) $fevrier = GUICtrlCreateButton("Février", 110, 50, 80, 30) $mars = GUICtrlCreateButton("Mars", 195, 50, 80, 30) $avril = GUICtrlCreateButton("Avril", 280, 50, 80, 30) $mai = GUICtrlCreateButton("Mai", 25, 100, 80, 30) $juin = GUICtrlCreateButton("Juin", 110, 100, 80, 30) $juillet = GUICtrlCreateButton("Juillet", 195, 100, 80, 30) $aout = GUICtrlCreateButton("Août", 280, 100, 80, 30) $septembre = GUICtrlCreateButton("Septembre", 25, 150, 80, 30) $octobre = GUICtrlCreateButton("Octobre", 110, 150, 80, 30) $novembre = GUICtrlCreateButton("Novembre", 195, 150, 80, 30) $decembre = GUICtrlCreateButton("Décembre", 280, 150, 80, 30) While 1 $msg_mois = GUIGetMsg() Switch $msg_mois Case $GUI_EVENT_CLOSE Exit Case $janvier Case $fevrier Case $mars Case $avril Case $mai Case $juin Case $juillet Case $aout Case $septembre Case $octobre Case $novembre Case $decembre EndSwitch WEnd ; ----- Fin du switch et de la boucle "Année 2010" --------------------------------------------------------------------------------------------------- Case $2011 $menu_mois = GUICreate("Choix du mois", 400, 200, 690, 470) GUISetState(@SW_SHOW) $choix_mois = GUICtrlCreateLabel("Veuillez choisir le mois, svp :", 100, 15, 300, 20) GUICtrlSetFont($choix_mois, 10, 800, 4, "Arial") ; ----- III.6 Création des 12 boutons de chaque mois + Boucle "attente de saisie" --------------------------------------------------------------------- $janvier = GUICtrlCreateButton("Janvier", 25, 50, 80, 30) $fevrier = GUICtrlCreateButton("Février", 110, 50, 80, 30) $mars = GUICtrlCreateButton("Mars", 195, 50, 80, 30) $avril = GUICtrlCreateButton("Avril", 280, 50, 80, 30) $mai = GUICtrlCreateButton("Mai", 25, 100, 80, 30) $juin = GUICtrlCreateButton("Juin", 110, 100, 80, 30) $juillet = GUICtrlCreateButton("Juillet", 195, 100, 80, 30) $aout = GUICtrlCreateButton("Août", 280, 100, 80, 30) $septembre = GUICtrlCreateButton("Septembre", 25, 150, 80, 30) $octobre = GUICtrlCreateButton("Octobre", 110, 150, 80, 30) $novembre = GUICtrlCreateButton("Novembre", 195, 150, 80, 30) $decembre = GUICtrlCreateButton("Décembre", 280, 150, 80, 30) While 1 $msg_mois = GUIGetMsg() Switch $msg_mois Case $GUI_EVENT_CLOSE Exit Case $janvier Case $fevrier Case $mars Case $avril Case $mai Case $juin Case $juillet Case $aout Case $septembre Case $octobre Case $novembre Case $decembre EndSwitch WEnd ; ----- Fin du switch et de la boucle "Année 2011" --------------------------------------------------------------------------------------------------- Case $2012 $menu_mois = GUICreate("Choix du mois", 400, 200, 690, 470) GUISetState(@SW_SHOW) $choix_mois = GUICtrlCreateLabel("Veuillez choisir le mois, svp :", 100, 15, 300, 20) GUICtrlSetFont($choix_mois, 10, 800, 4, "Arial") ; ----- III.7 Création des 12 boutons de chaque mois + Boucle "attente de saisie" --------------------------------------------------------------------- $janvier = GUICtrlCreateButton("Janvier", 25, 50, 80, 30) $fevrier = GUICtrlCreateButton("Février", 110, 50, 80, 30) $mars = GUICtrlCreateButton("Mars", 195, 50, 80, 30) $avril = GUICtrlCreateButton("Avril", 280, 50, 80, 30) $mai = GUICtrlCreateButton("Mai", 25, 100, 80, 30) $juin = GUICtrlCreateButton("Juin", 110, 100, 80, 30) $juillet = GUICtrlCreateButton("Juillet", 195, 100, 80, 30) $aout = GUICtrlCreateButton("Août", 280, 100, 80, 30) $septembre = GUICtrlCreateButton("Septembre", 25, 150, 80, 30) $octobre = GUICtrlCreateButton("Octobre", 110, 150, 80, 30) $novembre = GUICtrlCreateButton("Novembre", 195, 150, 80, 30) $decembre = GUICtrlCreateButton("Décembre", 280, 150, 80, 30) While 1 $msg_mois = GUIGetMsg() Switch $msg_mois Case $GUI_EVENT_CLOSE Exit Case $janvier Case $fevrier Case $mars Case $avril Case $mai Case $juin Case $juillet Case $aout Case $septembre Case $octobre Case $novembre Case $decembre ; ----- Fin du switch et de la boucle "Année 2012" --------------------------------------------------------------------------------------------------- EndSwitch WEnd ; ----- Fin du Switch et de la boucle "Année" -------------------------------------------------------------------------------------------------------- EndSwitch WEnd If $annee == "2009" Then _ExcelBookOpen($prepa_gal_2009) WinWaitActive("Preparation 2009.xlsx - Microsoft Excel") _ExcelBookOpen($prepa_2009) WinWaitActive("-- PREPARATION-2009 --.xsl [Mode de compatibilité] - Microsoft Excel") EndIf Case $prepa_trim Case $prepa_retour Exit ; ----- Fin du Switch et de la boucle "Prépa" -------------------------------------------------------------------------------------------------------- EndSwitch WEnd Case $stock Case $achats Case $SAV Case $exit Exit ; ----- Fin du switch et de la boucle "Service" --------------------------------------------------------------------------------------------------- EndSwitch WEnd ;Func Fin() ;SplashTextOn("Arrêt du script", "Fermeture du script en cours, veuillez patienter S.V.P...", 400, 30) ; sleep(1000) ; splashoff() ; Exit ;EndFunc