code vba dans feuille d'un fichier

[patrick]

Rebonjour Forum,

Par vba, je crée un fichier dans lequel j'ai besoin d'ajouter automatiquement du code dans une feuille donnéee de type :

Sub WorkSheet_Calculate()
bla bla bla
end sub

Comment entrer ce code lors de la création du fichier par vba

Merci

 

[michel]

bonsoir Patrick

j'espère que cette macro pourra t'aider


Dim X As Integer
'creation procedure dans la Feuil1
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
X = .CountOfLines
.InsertLines X + 1, "Private Sub WorkSheet_Calculate()"
.InsertLines X + 2, "'bla bla bla"
.InsertLines X + 3, "MsgBox ""Calcul effectué . "",,""Message"" "
.InsertLines X + 4, "End Sub"
End With


bonne soiree
MichelXld

 

[patrick]

Michel,

Je viens de lire ta proposition et me suis empressé de la recopier dans ma macro. Malheureusement, elle s'arrete à la ligne : "With activeWorbook...." et me signale "l'indice n'appartient pas à la sélection".

Peux tu me sortir de là ?

Merci beaucoup

 

[arnaud]

salut 🙂,

as tu dans ton classeur une feuille appelée Feuil1 ??
sinon pour être sur de faire ça sur le bon classeur, présice le nom :

Workbooks("NomDeTonClasseur").VBProject.VBComponents("Feuil1").CodeModule

 

[patrick]

Arnaud,

J'ai suivi tes conseils, mais j'ai toujours le même problème.

Merci quand même

 

[patrick]

Re,

...un indice, la commande VBComponent ne semble pas être reconnue


A suivre

 

[michel]

bonjour Patrick , bonjour Arnaud

Essayes d'activer la référence Microsoft Visual Basic for Applications Extensibility 5.3
dans visual basic editor (Alt+F11) :
menu outils
reference
et coches cette reference Microsoft Visual Basic for Applications Extensibility 5.3


bonne soiree
MichelXld