Création de code en dynamique

Version imprimable

Bonjour,
J'utilise ce code qui me permet de créer une macro dynamiquement.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim X As Integer With ActiveWorkbook.VBProject.VBComponents("Module5").CodeModule X = .CountOfLines .InsertLines X + 1, "sub " & "mac_" & fonction .InsertLines X + 2, "If FeuilleExiste(temp2) Then" .InsertLines X + 3, "sheets(fonction).activate" .InsertLines X + 4, "Else" .InsertLines X + 5, " message = MsgBox(""Aucune ihm existante, voulez vous en créér une ?"", vbYesNo)" .InsertLines X + 6, " If message Then Call nouvelle_feuille(" & fonction & ")" .InsertLines X + 7, "End If" .InsertLines X + 8, "End Sub" End With
La variable fonction est une string qui contient par exemple la valeurs B02033
Si j'applique le code en l'état, fonction va être remplacé par B02033 au lieu de "B02033" ec qui est problématique car du coup les lignes comme sheets(fonction).activate vont planter. J'ai essayé plusieurs solutions mais je n'ai rien trouvé pour le moment, auriez vous une idée?
merci

05/06/2013, 12h14
mercatog

Dédouble les "

Exemple

Code:

.InsertLines X + 3, "sheets(""" & Fonction & """).activate"

Bonjour,

j'avais trouvé un exemple sur un autre site :

Et l'utilisation que j'en ai fait :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
'*********** Routine pour réécrire le code pendant l'execution  **************
Set VBComp = ActiveWorkbook.VBProject.VBComponents("Feuil6")
With VBComp
    For i = 1 To .CodeModule.CountOfLines
        Recherche = .CodeModule.Lines(i, 1)
        Recherche = Replace(Recherche, "'Tst_mail", "Tst_mail")
        .CodeModule.ReplaceLine i, Recherche
    Next
End With
 
With VBComp
    For i = 1 To .CodeModule.CountOfLines
        Recherche = .CodeModule.Lines(i, 1)
        Recherche = Replace(Recherche, "base.Visible = False", "base.Visible = True")
        .CodeModule.ReplaceLine i, Recherche
    Next
End With
Set VBComp = Nothing 'On libere l'objet VBComp

A+
Henri

05/06/2013, 15h02
fxleo

la première solution fonctionne très bien.
Le bout de code de la 2ème m'intéresse aussi c'est impec.

Merci