Discussion :

[rmmonaco]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

dans Thisworkbook.

J'ai essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.VBProject.VBComponents(1)

mais je n'arrive à rien du tout.

Merci d'avance et bonne journée

[sabzzz]

bonjour rmmonaco,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[sabzzz]

bonjour romain,

Chr(10) renvoie un caractère de saut de ligne, c'est la fonction CAR de la feuille de calcul.

[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

[sabzzz]

bonjour rmmonaco,

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

un petit exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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