Insertion de code par VBA dans un nouveau classeur au niveau workbook_open
TOUF57
Messages postés
35
Date d'inscription
mercredi 16 février 2005
Statut
Membre
Dernière intervention
8 septembre 2009
-
29 mai 2006 à 22:24
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 30 mai 2006 à 05:46
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 30 mai 2006 à 05:46
A voir également:
- Vba créer une nouvelle feuille et la nommer
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- Vba supprimer une feuille ✓ - Forum Visual Basic
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Comment créer une application android - Forum VB.NET
1 réponse
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
30 mai 2006 à 05:46
30 mai 2006 à 05:46
bonjour
j'espere que cet exemple pourra t'aider afin d'ajouter une procedure evenementielle Workbook_Open dans un nouveau classeur
Dim Wb As Workbook
Dim laMacro As String
Dim x As Integer
Set Wb = Workbooks.Add
laMacro = "Sub Workbook_Open()" & vbCrLf
laMacro = laMacro & "MsgBox ""Bonjour """ & vbCrLf
laMacro = laMacro & "End Sub"
With Wb.VBProject.VBComponents("ThisWorkbook").CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With
Wb.SaveAs "C:\leNouveauClasseur.xls"
bonne journée
michel
j'espere que cet exemple pourra t'aider afin d'ajouter une procedure evenementielle Workbook_Open dans un nouveau classeur
Dim Wb As Workbook
Dim laMacro As String
Dim x As Integer
Set Wb = Workbooks.Add
laMacro = "Sub Workbook_Open()" & vbCrLf
laMacro = laMacro & "MsgBox ""Bonjour """ & vbCrLf
laMacro = laMacro & "End Sub"
With Wb.VBProject.VBComponents("ThisWorkbook").CodeModule
x = .CountOfLines + 1
.InsertLines x, laMacro
End With
Wb.SaveAs "C:\leNouveauClasseur.xls"
bonne journée
michel