Slt Gilbert
Sans trop m'avancer , je dirai que si il n'y a que la "X" c'est que le logiciel n'a pas prévu de Masquer !
sinon en faisant ALT + clic droit dans la fenêtre on a le menu , mais même là " masquer" supprime le fenêtre
Gilbert
Pourtant ton code de début fonctionne bien pour ouvrir : Sub f_execution()
Application.VBE.MainWindow.Visible = True
Application.VBE.ActiveCodePane.Show
SendKeys "%{a}{x}", True EndSub
Moi je pensais que tu voulais Masquer / fermer ?
Là je viens de tester tout est OK avec :
Code:
Sub f_execution()
Application.VBE.Windows("Exécution").SetFocus
'Application.Wait (Now + TimeValue("0:00:03"))
Stop
SendKeys "%{a}{x}", True
End Sub
Sub ferme()
Application.VBE.Windows("Exécution").Close
End Sub
Sub ClearImmediateWindow()
'source: fs
'Yannic Grant, mpep
'par précaution, enregistrer son code avant de lancer cette procédure
Application.VBE.Windows.Item("Exécution").SetFocus
SendKeys "^a"
SendKeys "{del}"
End Sub