Discussion :

[fxleo]

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

Code :

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

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

[mercatog]

Dédouble les "

Exemple

Code :

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

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

[henrigp]

Bonjour,

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

Et l'utilisation que j'en ai fait :

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
 
'*********** 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

[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