XL 2013 Editeur Visual Basic

[Cleek]

Bonjour à nouveau à toutes et tous
Une autre question à vous poser car je n'y pas pu trouver de solution.
J'ai un fichier qui s'ouvre sur un userform avec une série de boutons me permettant d'accéder aux différents onglets de travail. J'aimerais ajouter un bouton me permettant d'accéder directement à l'éditeur VB (CTRL+1 comme raccourci clavier), mais je ne trouve pas le code permettant de faire cela. J'ai utilisé ce qui suit sans succès :

Private Sub CommandButton23_Click()
Application.SendKeys "%{F11}"
End Sub
Merci à toutes et tous pour vos réponses et bon dimanche
Claude

 

[Phil69970]

Bonjour @Cleek

Si j'ai bien compris pour accéder à l’éditeur VB pas besoin de macro

ALT + F11 ouvre l'éditeur directement

Et une variante .....

Tout en image :

*Merci de ton retour

@Phil69970

 

[sylvanu]

Bonjour Cleek, Phil,
Bien que l'utilité m'échappe, essayez :

Application.VBE.MainWindow.Visible = True

 

[Dranreb]

Bonjour.
En cherchant dans un classeur où je le faisais, j'avais trouvé une autre voie plus compliquée mais qui pourrait s'adapter pour aller dans un module précis :

ThisWorkbook.VBProject.VBComponents(1).CodeModule.CodePane.Show

 

[bof]

Bonjour,

With Application.VBE.MainWindow
   .Visible = True
   .SetFocus
End With

A+

 

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une très belle journée bien chaude lol

Ce fil m'intéresse et j'y reviens (comme dirait ... ),

En effet, j'ai l'une de mes collègues qui n'arrive pas sur son ordi à afficher Visual basic avec "ALT + F11".
Pourtant-, elle a le même windows que moi et office 365, le tout en 64.

j'aimerais lui mettre une bouton de macro (dans son fichier lol ) pour qu'au clic elle ouvre Visual basic.
J'ai suivi le fil avec attention, j'ai appliqué mais rien ne fonctionne.

Si vous aviez la solution ce serait super !
Je joins un petit fichier test.

Je vous remercie,
Amicalement,
lionel

 

[Eric C]

Bonjour le forum
Bonjour le fil

@lionel - Pour ma part, tous les codes fonctionnent très bien chez moi. Je t'en ai même ajouté un pour atteindre le code VBE.
Bonne journée
@+ Eric c

 

[Phil69970]

Bonjour à tous

@Usine à gaz :
Vu que le demandeur est au abonné absent ce fil c'est arrêté ....
Pour moi les 2 solutions que j'ai fourni au post #2 fonctionnent par contre j'ai le même message avec les autres solutions fournis aux autres post provoquent des erreurs y compris celle d'Eric
J'ai excel 2010 64, j'en conclu ,peut être rapidement que cela ne fonctionne pas en 64....

==> Message comment à toutes les solutions (y compris celle d'Eric)

@Phil69970

 

[Eric C]

Re le fil

@Phil69970 - (Bonjour Phil) - Il est exact que je suis sous XL2010 32bits -
@+

 

[Usine à gaz]

Bonjour Eric,

Je te remercie d'avoir regardé
Bizarre .. Bizarre

J'ai toujours la même erreur dans le fichier que tu m'as envoyé :

Y compris au clic sur le bouton2 que tu as ajouté.

Edit : Bonjour Phil69970

lionel

 

[Usine à gaz]

Bonjour le Forum

N'arrivant pas à faire fonctionner les codes pour afficher l'éditeur vba,
N'arrivant pas à trouver :
Dans Outils--> macro --> Sécurité --> Onglet "Éditeurs approuvés"
Il faut cocher "Faire confiance au projet Visual Basic"
office 365 vba dans éditeur activer "Faire confiance au projet Visual Basic"

J'ai fait ce petit code :

Sub affiche_vba()
CreateObject("wscript.shell").SendKeys "%" & "{F11}"
End Sub

Et ça semble très bien fonctionner
Je joins le fichier.
Amicalement,
lionel

 

[Phil69970]

Bonjour à tous

Lionel :
Ta version fonctionne chez moi sur excel 2010 64 bits et c'est la seule comme je l'ai dit au post # 8.
As tu essayer celle du post # 2 notamment la solution dans la barre de raccourci.
Avantage pas besoin de macro et c'est fonctionnel avec tous les fichiers excel...... et pour toutes les versions.....

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970
Oui je connais celle du post # 2 et c'est celle que j'utilise depuis toujours
Mais chez ma collègue elle a un souci pour l'utiliser.
C'est pour cela que j'ai fait ce petit code qui semble bien fonctionner.
lionel