Comment ouvrir la fenêtre Exécution VBE

[gilbert_RGI]

Bonjour,

Comment ouvrir la fenêtre exécution dans l'éditeur VBE

avec les touches Ctrl + G

mais ce que je cherche c'est le code pour la rendre visible ou pas

Merci

 

[herve62]

Re : Comment ouvrir la fenêtre Exécution VBE

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_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

Merci
mais là c'est une manipe avec les touches

ce que je cherche c'est un truc dans le genre

Sub f_execution()
Application.VBE.MainWindow.Visible = True
'Application.Wait (Now + TimeValue("0:00:03"))
Stop
SendKeys "%{a}{x}", True
End Sub

mais pas très fonctionnel pour le moment

Merci quand même

 

[herve62]

Re : Comment ouvrir la fenêtre Exécution VBE

As tu éxécuté cela avant :
Application.EnableEvents = True

et vérifié que dans Sécurité Macro > paramètres macro Developpeur est coché ?

Avec tout ça ton code marche bien > la fenêtre s'ouvre mais je sais pas comment la fermer : False ne marche pas
Sinon j'avais ça :

Sub FermeVBE()
'On Error Resume Next
With Application.VBE.MainWindow
.Visible = False: .Close
End With
End Sub

Mais erreur AUTOMATION ... ?? donc il me semble que c'est pas possible

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

pour ouvrir sans problème (?????) j'ai fait ça

Sub f_execution()
    Application.VBE.MainWindow.Visible = True
    Application.VBE.ActiveCodePane.Show
    SendKeys "%{a}{x}", True
End Sub

c'est l'ouverture qui m’intéresse plus que la fermeture afin de voir ou de faire voir directement le résultat d'un debug.print par exemple

il y a peut-être un api qui peut faire ça

je continue mon exploration ..... merci

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

si tu es intéressé voilà pour fermer la fenêtre "execution"

Sub f_executionF()
    Application.VBE.Windows("Exécution").Close
End Sub

 

[Pierrot93]

Re : Comment ouvrir la fenêtre Exécution VBE

Bonjour à tous,

c'est l'ouverture qui m’intéresse plus que la fermeture afin de voir ou de faire voir directement le résultat d'un debug.print par exemple

ceci devrait le faire non :

Application.VBE.Windows("Exécution").Visible = True

bon après midi
@+

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

Bonjour, et Merci Pierrot

ça le fait même très bien

il y a t il un truc pour aussi effacer cette fenêtre ?

le setfocus étant sur la fenêtre "Exécution"

 

[Pierrot93]

Re : Comment ouvrir la fenêtre Exécution VBE

Re,

il y a t il un truc pour aussi effacer cette fenêtre ?

si tu entends par effacer, fermer la fenêtre il y a ce code, donné plus haut d'ailleurs :

Application.VBE.Windows("Exécution").Close

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

non ce n'est pas ça

la fenêtre exécution ayant le focus

clic droit sur la fenêtre dans le bas de la liste il y a éffacer

c'est là le truc ;-)

 

[Pierrot93]

Re : Comment ouvrir la fenêtre Exécution VBE

Re,

aarf sous 2010 j'ai pas effacer... j'ai masquer... mais à priori même effect que le "close"...

 

[herve62]

Re : Comment ouvrir la fenêtre Exécution VBE

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
End Sub


Moi je pensais que tu voulais Masquer / fermer ?
Là je viens de tester tout est OK avec :

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

A+

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

MS a sans doute supprimé cette commande

pas grave je me débrouille autrement (bidouille)

Sub f_executionE()
    Application.VBE.Windows("Exécution").SetFocus
    For i = 1 To 200
        Debug.Print
    Next
End Sub

 

[gilbert_RGI]

Re : Comment ouvrir la fenêtre Exécution VBE

en cherchant je viens de trouver ici sur ce forum

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

 

[herve62]

Re : Comment ouvrir la fenêtre Exécution VBE

Gilbert , dis moi si ce que je t'ai laissé fonctionne ou pas ... car j'ai des doutes ???
A+