probleme de boucle (2)
Publié : lun. 15/oct./2007 20:02
ben je sais pas pourquoi quand mon test d'heure actuelle est effectué et que mon sous programme est lancé, je n'arrive plus a bien faire fonctionner la fenetre iconisée avec le menu
Code : Tout sélectionner
boucle:
If OpenWindow(0, 0, 0, 0, 0, "blabla",#PB_Window_Invisible)
CreatePopupMenu(1)
MenuItem(1,"Paramètres")
MenuItem(2,"A propos")
MenuItem(3,"Quitter")
AddSysTrayIcon(0, WindowID(0), LoadImage(0, FicIcon$))
EndIf
Repeat
Time$ = FormatDate("%hh:%ii:%ss", Date())
If Time$=heuremisej$ : Goto suite:EndIf
Select WindowEvent()
Case #PB_Event_SysTray
DisplayPopupMenu(1, WindowID(0))
Case #PB_Event_Menu
Select EventMenu()
Case 1 ; Paramètres
MessageRequester("Paramètres...","Nom du Fichier SOURCE Excel: "+Chr(10)+nomfichier$+Chr(10)+Chr(10)+"Heure de mise à jour: "+Chr(10)+heuremisej$+Chr(10)+Chr(10)+Chr(10)+"Vous pouvez modifier ces paramètres : Fichier Param.txt")
Case 2 ; A propos
MessageRequester("A propos de...","TEMPO CONSEIL"+Chr(13)+"Gestionnaire de mise à jour du Fichier SOURCE Excel")
Case 3 ; Quitter
quit=1
EndSelect
EndSelect
Until quit=1
suite:
RunProgram("excel.exe","C:\_work\Fred\MAJ_Auto\Mafeuille.xls","");ouvre le fichier
Delay(3000)
KeyBoardEvent(#VK_RETURN, 0) ;cliquer sur ENTREE pour dire ok mettre à jour
;
Delay(3000)
KeyBoardEvent(#VK_F4, 2) ; va demander fermeture EXCEL
;
Delay(3000);
KeyBoardEvent(#VK_RETURN, 0) ;cliquer sur ENTREE pour dire ok enregistrer
;
Delay(70000):Goto boucle
End