VBA activer l'éditor VBA

Bonsoir à tous,

peut-on dans une macro, appeler la fenêtre "Visual basic éditor" ?

C'est pour améliorer mon fichier "Lexique_VBA" sur "application Excel"

amicalement

Claude.

Salut le forum

J'ai trouvé cela mais ca lance le débogeur !!!!

Sub FermeVBA()
Application.VBE.MainWindow.Visible = False
End Sub

Sub OuvreVBA()
Application.VBE.MainWindow.Visible = True
End Sub

Mytå

Merci Mytå,

çà marche très bien, sans lancer le débogeur.

Maintenant la cerise sur le gâteau serait de coller directement ce que je viens de copié dans le module en cours (ou j'ai laissé le curseur !)

Sub cherche()
  On Error Resume Next
    Application.ScreenUpdating = False
        Application.CutCopyMode = False
            Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
                 "criteres"), CopyToRange:=Range("vba!extrait"), Unique:=False ''' filtre élaboré
   Sheets("VBA").Select
            Range("VBA!a2") = Range("base!b3")
                Range("base!explications").Copy
                    Range("VBA!b20").Select
                        Selection.PasteSpecial Paste:=xlValues
                            Range("base!CODE").Copy
                                Range("VBA!b2").Select
                                    Selection.PasteSpecial Paste:=xlValues
         If Range("base!e1") = "Auto" Then
                Range("VBA!b1").Select
                    Selection.End(xlDown).Offset(0, 0).Name = "top"
                        Range("VBA!b2:top").Copy
                        Application.VBE.MainWindow.Visible = True '******** OK
                        'ActiveSheet.Paste ******coller dans le module en cours ,ou j'ai laissé le curseur********
         End If
            Range("VBA!a1").Select
  On Error GoTo 0
End Sub

Mais là j'en demande sans doute beaucoup

c'est déjà très bien comme çà.

amicalement

Claude.