![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
mapeh
Re-,
le code suivant ajoute un code évènementiel dans le ThisWorkBook du classeur actif
Lorsque tu créés ton fichier (WorkBooks.Add....), tu es donc dans ce nouveau classeur..
Essaie :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub Insert_Proc()
'nécessite une référence à :
'Microsoft Visual Basic For Applications Extensibility 5.3
Dim DebutCode As Long
Dim S As String
S = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla"""
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
DebutCode = .CreateEventProc("Open", "Workbook")
.InsertLines DebutCode + 1, S
End With
End Sub |
N'oublie pas d'activer la référence citée en haut du code (ne sera utile que pour le classeur qui exécute le code....)
Ok merci pour la reponse
Ici on active le addin :
1 2
| S = "ThisWorkbook.VBProject.References.AddFromFile _" & vbLf
S = S & """C:\Documents and Settings\TaMacro.xla""" |
mais ici j'ai pas trop compris la synthaxe:
.InsertLines DebutCode + 1, S
ou est ce que je peux rajouter mon code ?
Partager