[VBA] Inserer du code dans thisworkbook

Question

Bonjour,
je voudrais inserer du code dans le fichier "this workbook" par macro 

je sais a peu près utiliser insertLines, mais je ne sais pas comment l'utiliser autrement que pour inserer du code dans un module. 

Le code que je voudrais inserer est relatif à l'ouverture ultérieure du fichier (Private Sub Workbook_Open())

Voilà si quelqu'un pouvait me dire comment insérer du code spécifiquement de ce fichier ca serait bien :) 
merci beaucoup !
Yvan

yvan44 · Answer

Re 
Personne ne sait comment mettre du code par macro dans "thisworkbook", ou peut être dans une feuille ? 
Je ne sais utiliser insertline que dans un module, à moins que cela ne soit pas possible ? 
merci 

Yvan

yvan44 · Answer

j'ai trouvé comment !!!
Alors pour ceux à qui ca pourrais servir :

With Wbk.VBProject.VBComponents(1).CodeModule

x = .CountOfLines
.InsertLines x + 1, "Public wb As Workbook"
...
End With

Yvan

Mathieu · Answer

Comment as tu fais?? exemple de mon code :

Sub TestCellule()

    Dim LignesDeCode As String
    Dim LigneSuivante As Long
    
    'Ajout de l'évènement
    LignesDeCode = "Private Sub Workbook_BeforeClose(Cancel As Boolean)" & vbCrLf
    LignesDeCode = LignesDeCode & "    Msg = ""N'oublier pas de changer la révision si vous avez fait un changement !"" " & vbCrLf & vbCrLf
    LignesDeCode = LignesDeCode & "Ans = MsgBox(Msg, vbOK)" & vbCrLf
    LignesDeCode = LignesDeCode & "End Sub" & vbCrLf

    With ThisWorkbook.VBProject.VBComponents(1).CodeModule
        LigneSuivante = (.CountOfLines + 1)
        .InsertLines LigneSuivante, LignesDeCode
    End With
    
End Sub

je recois une erreur lors de l'éxécution de ThisWorkbook.VBProject.VBComponents(1).CodeModule 

Je voudrais pouvoir insérer du code dans le workbook et dans Feuil1 lorsque j'ajoute ce macro a un fichier excel 

Merci

[VBA] Inserer du code dans thisworkbook

3 réponses

Discussions similaires

Newsletters