Discussion :

[Christof7]

Bonjour,
J'aimerais changer le code associer a une feuille que je viens de créer et dont le nom a été récupéré dans textbox2, je précise que le nom de la feuille est une année (donc un nombre).
je pensais passer par la :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set Wb = ThisWorkbook ' Workbooks.Open("LeFichier")
With Wb.VBProject.VBComponents(TextBox2.Text.CodeName).CodeModule
    Lig = 1
    .InsertLines Lig, "Private Sub Worksheet_Change(ByVal Target As Range)": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""boutonalphabetville"").Left = ActiveWindow.VisibleRange.Left + 950": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""boutonalphabetville"").Top = ActiveWindow.VisibleRange.Top + 5": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""boutonretourmenu"").Top = ActiveWindow.VisibleRange.Top + 5": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""boutonretourmenu"").Left = ActiveWindow.VisibleRange.Left + 800": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""viderfiltre"").Top = ActiveWindow.VisibleRange.Top + 5": Lig = Lig + 1
    .InsertLines Lig, "Shapes(""viderfiltre"").Left = ActiveWindow.VisibleRange.Left + 1260": Lig = Lig + 1
    .InsertLines Lig, "End Sub": Lig = Lig + 1
End With

Cependant cela ne marche pas et me met une erreur au niveau de Wb.VBProject.VBComponents(TextBox2.Text.CodeName).CodeModule
cela ne marche pas non plus avec Wb.VBProject.VBComponents(TextBox2.value.CodeName).CodeModule
et cela ne marche encore moins sans le .codename

please help me !

Merci à vous !

[mumen]

Christof, personne ne peut répondre sans connaitre le message d'erreur. Je pense que la solution la plus probable, c'est d'aller dans les options dire que tu es au courant que toucher au code par code c'est dangereux...

Chercher l'option sur le net pour la localiser : "Accès approuvé au modèle d'objet du projet VBA"

[Christof7]

Bonjour,
Finalement je pensais plus logique de passer par

Code :

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

With Wb.VBProject.VBComponents(Worksheets(UserForm2.TextBox2.Text).CodeName).CodeModule

même si je dois me tromper
Le message d'erreur indique que l'indice n'appartient pas la sélection
Des idées ? Merci !

[eriiic]

Bonjour,

le plus simple est de te créer une feuille modèle cachée, avec ses boutons et son code, que tu copies lors de la création.
eric

[Christof7]

Super idée je n'y avais absolument pas pensé ! Merci beaucoup je vais essayer ca !