Insertion de code par macro

[Jim--]

Bonsoir le forum!
Cela fait qques mois que je parcours votre forum et que j'y trouve toutes les réponses à mes question. Sauf pour celle ci 🙂

J'ai donc essayer d'insérer du code sur une page à l'aide d'une macro.
J'utilse cette méthode que j'ai trouvé dans un précédent fil:

Sub EcrireThisWorkBook()
Dim X As Integer


With Workbooks("New.xls").VBProject.VBComponents("ThisWorkbook").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub Workbook_Open()"
.InsertLines X + 2, "MsgBox ""Coucou"",VBinformation "
.InsertLines X + 3, "End Sub"
End With
End Sub


Seulement des que je lance la macro (a l'aide d'un userform), le message d'erreur suivant apparait : "L'accès par programme au projet Visual Basic n'est pas fiable"

J'ai passé la journée a essayer de trouver une personne ayant eu le même probleme que moi mais sans résultats. J'ai également essayer d'autres méthodes mais sans résultats. Toujours le même message d'erreur..
Je m'en remet donc a vous, en espérant que vous puissiez m'aider.
Merci

 

[myDearFriend]

Bonjour Jim, le Forum.


Jim si tu veux que ton code fonctionne, il faut voir au niveau des paramètres de sécurité d'Excel.
Si tu as par exemple Excel 2002 :

Outils/Macro.../Sécurité.../Onglet "Sources Fiables", cocher "Faire confiance aux projets Visual Basic".


Cordialement,
Didier_mDF

 

[michel]

bonjour Jim

j'espere que ce lien pourra t'aider

Lien supprimé


bonne soiree
MichelXld

 

[michel]

bonjour Didier

tu as été plus rapide que moi sur ce coup ….;o)
j'ai eu le meme probleme que Jim quand je suis passé à Excel2002 et c'est @+Thierry qui m'avait donné la solution


très bonne soiree à toi
MichelXld


ps
je viens de tester ton classeur " MFCmultiples.zip"…merci car ta demo est tres interessante

 

[Jim--]

Merci beaucoup!
Le code fonctionnait! grrr 😛
Une journée de projet perdue pour une case non cochée 🙂
Ca fait plaisir de voir un forum réactif comme celui la!

Merci encore et bonne journée a vous tous !