Ecrire avec une macro dans Thisworkbook

Version imprimable

26/04/2010, 13h28
rmmonaco

Ecrire avec une macro dans Thisworkbook

Bonjour,
J'ai vraiment besoin de votre savoir car je ne suis pas très doué en VBA

Voila la situation,
J'ai une macro que je lance depuis les macro Perso sur le fichier1 qui est un fichier nouveau chaque jour et au nom variable.

J'aimerai à l'aide de cette macro créer une macro :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

dans Thisworkbook.

J'ai essayer

Code:

ActiveWorkbook.VBProject.VBComponents(1)

mais je n'arrive à rien du tout.

Merci d'avance et bonne journée

bonjour rmmonaco,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ÉcrireCode()
Dim code(3)
code(0) = "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) "
code(1) = "MagBox ""je suis la premiere ligne"""
code(2) = "ligne2 = 2"
code(3) = "End Sub"
For i = 0 To 3
S = S & code(i) & Chr(10)
Next
Set MyVB = Workbooks("fichier1.xls").VBProject.VBComponents("ThisWorkBook").CodeModule
MyVB.AddFromString S
End Sub

27/04/2010, 11h48
rmmonaco

Bonjour et merci isabelle

Après quelque retouche mon programme fait des merveilles ! Merci beaucoup!

Pour information à quoi correspond le "Chr(10)"?

Cela parait tellement simple pour toi, mais je n'ai jamais vu une réponse si claire à ce sujet!

J’aurai cependant une autre requête à te faire parvenir

Lors de l’ouverture du fichier(2) avec la macro lancé depuis thisworkbook du fichier(1) , la sélection d’une feuille de ce classeur conduit à une erreur.
La manip x = activesheet.name donne le nom d’une feuille activé dans le fichier (1) malgré le fait de l’activation du fichier (2).
Et la suite du programme s’effectue bien dans le fichier (2)

Aurai tu une idée?

merci encore
27/04/2010, 12h40
sabzzz

bonjour romain,

Chr(10) renvoie un caractère de saut de ligne, c'est la fonction CAR de la feuille de calcul.
17/05/2010, 16h55
rmmonaco

Bonjour, j'aurai encore une petite question qui je pense sera des plus faciles pour vous.

Comment fait on pour créer une useform avec un code macro a l'intérieur?

Merci encore pour l'aide

bonjour rmmonaco,

Citation:

Comment fait on pour créer une useform avec un code macro a l'intérieur?

un petit exemple,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CreerUserForm()
Dim VBP As VBProject
Dim VBC As VBComponent
Dim VBMod As CodeModule
Dim code(2)
 
code(0) = "Private Sub UserForm_Initialize()"
code(1) = "Me.BackColor = RGB(211, 239, 255)"
code(2) = "End Sub"
 
For i = 0 To 2
S = S & code(i) & Chr(10)
Next
 
Set VBP = ActiveWorkbook.VBProject
Set VBC = VBP.VBComponents.Add(vbext_ct_MSForm)
VBC.Name = "MyUserform"
Set VBMod = VBC.CodeModule
VBMod.AddFromString S
 
End Sub