Fermeture d'excel si la fenetre de code VBA n'est pas ouverte

[benobil]

Bonjour,

Je réalise actuellement mes premieres macros excel en VBA. J'utilise excel 2007.
Mon code permet de créer des tableaux excel à partir d'un model.
L'utilisateur appuis sur un bouton et de nouveaux fichiers basées sur le model mais dont les cases sont remplies sont crées. Dans ces fichiers sont ajoutés des boutons et mon petit programe écrit le code correspond au click sur ces boutons.

Mon problème est que ce code ne fonctionne que si la fenetre de développement est ouverte. Sinon Excel plante et me propose de récuperer mes fichiers.
Après quelques investigations j'ai constaté que le probleme venait de ce bout de code:
'Ecriture du code correspondant au click sur le bouton
With ActiveWorkbook.VBProject.VBComponents("Feuil3").CodeModule
NextLine = .CountOfLines + 1
.insertlines NextLine, Code
End With
Je vous fournit au cas ou la signature de l'erreur, si jamais ca parle a quelqu'un.

Merci d'avance

 

[benobil]

Re : Fermeture d'excel si la fenetre de code VBA n'est pas ouverte

J'ai oublié la signature promise: 😉

AppName: excel.exe AppVer: 12.0.4518.1014 AppStamp:45428263
ModName: vbe6.dll ModVer: 6.5.10.20 ModStamp:45187577
fDebug: 0 Offset: 00014061

et il n'y a pas d'espace dans "CodeModule".

 

[PascalXLD]

Re : Fermeture d'excel si la fenetre de code VBA n'est pas ouverte

Bonjour

Oui on avait recontré un problème similaire

je retrouve le fil

 

[PascalXLD]

Re : Fermeture d'excel si la fenetre de code VBA n'est pas ouverte

ARf ça y est retrouvé

https://www.excel-downloads.com/threads/comment-excel-gere-t-il-les-codename.77312/

 

[benobil]

Re : Fermeture d'excel si la fenetre de code VBA n'est pas ouverte

J'ai fait un ou deux petits essais sans succès, puis j'ai un peu mixé les infos du lien que tu m'as fourni.
Mon "with" est devenu :

Sheets(3).Select
ActiveWorkbook.VBProject.VBComponents("Feuil3"). _
CodeModule.AddFromString (code)

Ca marche.

Merci bcp 🙂