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