Impossible d'écrire du code dans ThisWorkbook depuis une macro

Bonjour,

Je voudrais écrire du code dans un classeur B que je créé à partir d'une macro dans un classeur A dont voici le code:

Code:

---

1 2 3 4 5

Dim Classeur_Historique_User As Workbook Set Classeur_Historique_User = Workbooks.Add Set VBComp = Classeur_Historique_User.VBProject.VBComponents("ThisWorkbook").CodeModule code_string = "Sub Fermeture_Classeur_Historique()" & Chr(10) & "ActiveWorkbook.Close False" & Chr(10) & "End Sub" VBComp.AddFromString code_string

---

Le code ne plante pas mais rien ne s'écrit.
J'ai bien activé la référence VB for application extensibility 5.3.

Des idées?

D'avance merci.

Bonjour,

ces lignes de codes me semblent correctes et n'expliquent pas ton problème qui doit se situer ailleurs.
D'ailleurs, pourquoi écrire cette procédure dans Thisworkbook plutôt qu'un module standard ?

Il faudrait nous montrer le code complet de la procédure.
Ça tombe sous le sens mais .... si tu enregistres ton fichier ensuite, c'est bien en xlsm et pas xlsx hein ?

Merci pour la réponse.
J'ai essayé d'écrire dans un module standard mais ça ne marchait pas non plus. Je me suis dit que l'ajout d'un nouveau module était peut-être à l'origine de l'anomalie d'où l'écriture du code dans ThisWorkbook.
En revanche, le classeur B est au format "xlsx".
J'ai résolu le problème qui semblait venir de l'accès approuvé au modèle d'objet du projet VBA qui n'était pas coché.

Il ne me reste plus qu'à savoir comment (si c'est possible) activer ce paramètre par macro.

Je passe en résolu malgré tout.

Encore merci et bon après-midi.

regarde si j'avais proposé un truc qui fonctionne ici : https://www.developpez.net/forums/d1...e/#post8263664

C'est gentil.:)
Je vais essayer. J'avais déjà trouvé des solutions utilisant l'envoi de touche mais sans succès.
Je vous tiens au courant et copie-collerai la solution ici si elle s'avère concluante.;)

Enorme, ta solution (cf. ci-dessous) fonctionne parfaitement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test()   ' si l'accès au projet n'est pas approuvé ' la récupération de la version va planter ! On Error GoTo CocheCase bidon = Application.VBE.Version Exit Sub     ' si ça plante, on simule l'activation CocheCase:   SendKeys "%v" SendKeys "{ENTER}" Application.CommandBars.ExecuteMso "MacroSecurity"

---

Encore merci mille fois!

En revanche, cela remet fortement en question le discours (très logique au demeurant) lu sur ce forum qui dit que "s'il y a une sécurité implémentée, c'est justement pour qu'elle ne puisse être bypassée de façon automatique".

C'est en partie vrai et en partie faux.

On peut cocher cette case automatiquement... à condition d'avoir activé les macros au préalable.

Mais bon ... côté sécurité Excel n'est pas une merveille, ce n'est pas sa vocation, contrairement à Outlook où certaines choses sont un peu plus complexes à Bypasser :mrgreen: