[VBA] Inserer du code dans thisworkbook

Fermé

Yvan44 - 16 mars 2007 à 13:27
Mathieu - 18 déc. 2007 à 14:51

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

A voir également:

Thisworkbook vba
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

yvan44
19 mars 2007 à 09:04

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

Réponse 2 / 3

yvan44
19 mars 2007 à 10:00

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

Réponse 3 / 3

Mathieu
18 déc. 2007 à 14:51

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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters