J
Jim--
Guest
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
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