Merci
Code : Tout sélectionner
WinActivate("[CLASS:Notepad]", "" )
WinWaitActive("[CLASS:Notepad]", "", 5 )
;send("!F")
WinMenuSelectItem("[CLASS:Notepad]", "", "&Fichier" )
Code : Tout sélectionner
WinActivate("[CLASS:Notepad]", "" )
WinWaitActive("[CLASS:Notepad]", "", 5 )
;send("!F")
WinMenuSelectItem("[CLASS:Notepad]", "", "&Fichier" )


Code : Tout sélectionner
ShellExecute("notepad.exe")
Sleep(2000)
WinActivate("[CLASS:Notepad]", "" )
WinWaitActive("[CLASS:Notepad]", "", 5 )
WinMenuSelectItem("[CLASS:Notepad]", "", "&Fichier", "&Mise en page...")
Il fonctionne aussi chez moi : Windows 7 familial premium 64 bitsTlem a écrit :Ce code fonctioone chez moi (XP SP3)



Code : Tout sélectionner
;essai avec EXCEL qui s'ouvre et passe au premier plan
ShellExecute("EXCEL.exe")
Sleep(2000)
WinActivate("[CLASS:XLMAIN]", "" )
WinWaitActive("[CLASS:XLMAIN]", "", 1 )
WinMenuSelectItem("[CLASS:XLMAIN]", "", "&Fichier", "&Ouvrir...")Code : Tout sélectionner
;essai avec WRITER qui s'ouvre et passe au premier plan
ShellExecute("switer.exe")
Sleep(2000)
WinActivate("[CLASS:SALFRAME]", "" )
WinWaitActive("[CLASS:SALFRAME]", "", 1 )
WinMenuSelectItem("[CLASS:SALFRAME]", "", "&Fichier", "&Ouvrir...")
Il y à de grande chance que vous soyez dans ce cas. ^^WinMenuSelectItem will only work on standard menus. Unfortunately, many menus in use today are actually custom written or toolbars "pretending" to be menus. This is true for most Microsoft applications.
Code : Tout sélectionner
;essai avec WRITER qui s'ouvre et passe au premier plan
ShellExecute("C:\Program Files\LibreOffice 3.4\program\swriter.exe")
; Boucle d'attente de l'affichage de la fenêtre Writer (peut être remplacé par un Sleep)
While 1
$Title = WinGetTitle("[CLASS:SALFRAME]")
If StringLen($Title) > 1 Then ExitLoop
Sleep(30)
WEnd
WinActivate($Title, "" )
Send("!FO")






