probleme de boucle (2)

[david]

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

[david]

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