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

 

[gilbert_RGI]

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+

de quel code fais tu réf car j'en ai essayé pas mal
j'ai même trouvé sur le net les API pour faire la demande

pour Effacer

Sub EffacerFenetreExecution()
    With Application.VBE.ActiveWindow.Collection("Exécution")    'depuis le VBE
        .Visible = True    'affiche
        .SetFocus    'donne le focus
        SendKeys "^a"    'sélectionne tout le texte présent dans la fenêtre 
        SendKeys "{DEL}"    'le supprime
    End With
End Sub

pour Fermer

Sub FermerFenetreExecution()
    With Application.VBE.ActiveWindow.Collection("Exécution")
           .Close 'ferme la fenêtre   
    End With
End Sub

Pour Ouvrir et écrire la liste des composants du classeur actif

Sub f_executionOuvrir()
    Dim i As Integer
    Application.VBE.Windows("Exécution").SetFocus
SendKeys "%{a}{x}", True
    Debug.Print "Liste des composants du classeur actif"
    For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count
        Debug.Print ActiveWorkbook.VBProject.VBComponents(i).Name
    Next
End Sub

 

[Julien01]

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

Bonjour,

Personnellement j'ai cocher dans les paramètres du ruban la rubrique "Développeur" et j'ai dans mon ruban à tout moment un accès aux VBA

Bonne journée

 

[gilbert_RGI]

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

Bonjour,

Personnellement j'ai cocher dans les paramètres du ruban la rubrique "Développeur" et j'ai dans mon ruban à tout moment un accès aux VBA

Bonne journée

Bonjour,

Rien à voir avec ma demande.

Merci

 

[Julien01]

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

Ah ok désolé alors

 

[herve62]

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

Gilbert
je parlais de ce que je t'avais dit > testé et Ok :

Sub f_execution()
Application.VBE.Windows("Exécution").SetFocus
'Application.Wait (Now + TimeValue("0:00:03"))
Stop
SendKeys "%{a}{x}", True
End Sub
--------------------
'fermeture
Sub ferme()
    Application.VBE.Windows("Exécution").Close
End Sub

 

[gilbert_RGI]

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

la fermeture fonctionne

pour l'ouverture il faut enlever le stop pour un fonctionnement sans intervention

Merci

 

[david84]

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

Bonjour,
on peut effectivement utiliser des API : des exemples ici à adapter.
Ceci-dit la façon de procéder est similaire : cibler la fenêtre d'exécution et utiliser des touches du claviers pour sélectionner et en effacer le contenu.
Le code avec les SendKeys fonctionne mais peut effectivement entraîner le verrouillage de certaines touches.
Une solution que j'avais trouvée sur le net consiste à utiliser les SendKeys de l'objet WScript.Shell (référence WshShell) à la place des SendKeys VBA.
La méthode SendKeys utilisée via cet objet semble plus stable et les problèmes rencontrés sur certaines versions d'Excel avec le SenKeys VBA semblent évités.
A+