sauvegarder une macro

Version imprimable

1 pièce(s) jointe(s)

Bonsoir

j'ai une macro qui crée une autre macro.
Mon problème est que cette nouvelle macro n'enregistre pas automatiquement le code.

Voici un programme pour mieux comprendre (voir la PJ sinon)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub test()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim ligne As String 'lignes de la macro
Dim nomVB As String
Dim isVBEopen As Boolean 'true si l'editeur de macro est deja ouvert, false sinon (VBE = Visual Basic Editor)
Dim x As Long
 
If (Application.VBE.MainWindow.Visible = True) Then
    isVBEopen = True
Else
    isVBEopen = False
    Application.VBE.MainWindow.Visible = True 'ouverture de l'editeur de macros pour pouvoir creer la nouvelle macro dans le classeur wb
End If
 
Set wb = Workbooks.Add 'ouverture d'un classeur vierge
Set ws = wb.Sheets(1)
ws.Range("A1").Value = 4
 
ligne = ligne & "Private Sub Worksheet_Change(ByVal Target As Range)" & vbCrLf
ligne = ligne & vbCrLf
ligne = ligne & "If (Target.AddressLocal = ""$A$1"") Then" & vbCrLf
ligne = ligne & "    ActiveSheet.Range(""$A$2"").Value = ActiveSheet.Range(""$A$1"").Value + 2" & vbCrLf
ligne = ligne & "End If" & vbCrLf
ligne = ligne & vbCrLf
ligne = ligne & "End Sub"
 
nomVB = Sheets(ws.Name).CodeName
 
'ajout de la procedure dans la feuille
With wb.VBProject.VBComponents(nomVB).CodeModule
    x = .CountOfLines + 1
    .InsertLines x, ligne
End With
 
'fermeture de l'editeur de macros s'il etait initialement ferme
If (isVBEopen = False) Then Application.VBE.MainWindow.Visible = False
 
wb.SaveAs Filename:="C:\Temp\testMacro.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
End Sub

Le problème est après. Si je ferme mon nouveau classeur puis que je le réouvre, la macro (qui fait A2 = A1 + 2) n'est pas enregistrée. En revanche, si je clique sur "Sauvegarder" puis que je ferme mon classeur puis que je le réouvre, là elle est sauvegardée. Pourtant j'avais bien fait un saveAs.

Pourriez-vous me dire svp ce qui ne fonctionne pas dans mon code ?

Merci beaucoup

Très bonne soirée

30/10/2019, 16h48
salseropom

Bonjour,

il n'y a vraiment personne pour m'aider ?
Y a-t-il au moins une personne qui a essayé de lancer ma macro test pour voir si elle rencontre le même problème sur son PC ?

merci bcp

Bonne journée
30/10/2019, 17h11
Menhir

Perso, je me garde bien d'utiliser le VBA pour modifier le VBE.

Perso, si j'avais à faire ce que tu décris, au lieu de faire un Workbooks.Add et d'introduire une macro, je créerais "à la main" un fichier modèle avec la macro intégrée et je créerais le nouveau fichier avec un Open suivi d'un SaveAs.
Ce serait beaucoup plus simple que ton tour de passe-passe : tout ton code se limiterais à 2 lignes (3 lignes si on compte le Dim wb).

Ta méthode pourrais se justifier si le contenu de la macro destination changeait d'un fichier à l'autre mais, si je ne me trompe pas, ça ne semble pas être le cas.

Citation:

Envoyé par salseropom

Y a-t-il au moins une personne qui a essayé de lancer ma macro test pour voir si elle rencontre le même problème sur son PC ?

Beaucoup de participants à ce forum n'ouvre pas les fichiers joints (surtout s'ils peuvent contenir des macro), entre autre pour les raisons expliquées ici :
https://www.developpez.net/forums/d8...s-discussions/
31/10/2019, 13h31
salseropom

Bonjour Menhir,

je comprends bien le risque associé aux pièces jointes. C'est la raison pour laquelle, dans mon 1e post, j'avais fait un copier-coller du code de la macro. Ainsi, le code est lisible, et sans risque, par tout le monde.

Concernant le VBA / VBE, j'avoue ne pas trop savoir quoi penser. Je comprends bien sûr ta position, mais elle oblige à avoir en input de la macro un fichier supplémentaire (le fichier template). Donc pour les grosses macros, je fais ce que tu dis. Mais là, pour quelques lignes, je modifie le VBE.

Mais j'aimerai savoir si je suis le seul à rencontrer ce pb d'enregistrement de la macro. Je ne trouve rien sur le net...

Merci encore

Bonne journée
31/10/2019, 18h01
titival

Bonjour

Il faut corriger

Code:

nomVb = Sheets(ws.Name).CodeName

par

Code:

nomVb = ws.CodeName
01/11/2019, 18h45
salseropom

Merci beaucoup !!

ça marche très bien. Dégoûté que la réponse fut aussi "simple"...

Encore merci