Ajouter du code dans le code d'une feuille

Version imprimable

Bonjour,

J'ai besoin de faire une macro qui me change le code d'une feuille excel, et en plus, le nom de la feuille peut-changer d'un classeur à l'autres.

J'ai déjà fais ça pour le thisworkbook, mais cette procédure ne marche pas sur une feuille.

Voici le code pour la modification du thisworkbook
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 Sub AddCodeTWB() On Error GoTo faux Dim S As String, I As Integer, J As Integer, name As String Application.Run "macroform.xls!recherche_nom_classeur" With ThisWorkbook.VBProject.VBComponents("DonneedAjoutTWB").CodeModule S = .Lines(1, .CountOfLines) End With With Workbooks(nw).VBProject.VBComponents("ThisWorkBook").CodeModule I = Workbooks(nw).VBProject.VBComponents("ThisWorkBook").CodeModule.CountOfLines If I > 0 Then For J = 1 To I .DeleteLines (1) Next J End If .AddFromString S End With exit_erreur: Exit Sub faux: Msgerror = "N°001-Erreur de déroulement de Macro. Notez le numéro et voir avec SRA." response = MsgBox(Msgerror) Resume Next End Sub
J'aurrais voulu adapter cela pour une feuille dont le nom est : "CH.OUT-xxxx" (les xxxx changent d'un classeur a l'autres.

Mais j'arrive à rien :(

20/04/2007, 10h30
srame

J'ai trouvé pourquoi ça marchais pas. Le nom de ma feuille n'est pas "CH.OUT-XXX"(le nom de l'onglet) mais le nom de code "Feuil2" et là ça marche.

Alors, nouveau problème, comment récupérer ce nom en sachant qu'il peux changer d'un classeur à l'autre.

en fait, il faut que je récupère le "(name)" et non pas "name"

Dans le VBAProject
Feuil2(CH.OUT-XXX)

Je dois récupérer le "Feuil2" comment je fais ça ?

Pour le nom j'ai ceci qui marche qui me trouve le "CH.OUT-XXXX:
Code:

1 2 3 4 5 6 7 Dim f As Worksheet, nomfeuil For Each f In ThisWorkbook.Sheets If f.name Like "CH.OUT*" Then nomfeuil = f.name End If Next '
Une idée ?

:yaisse2:

C'est bon j'ai réeussi, je suis juste un peu trop con, j'avais oublié d'enlever les "" lorsque j'utilise une variable et non le nom réelle.

Voici mon code au cas ou :

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
Sub AddCodeCHOUT()
On Error GoTo faux
Dim S As String, I As Integer, J As Integer, name As String
 
Application.Run "macroform.xls!recherche_nom_classeur"
 
    Dim f As Worksheet, nomfeuil
        For Each f In ThisWorkbook.Sheets
            If f.name Like "CH.OUT*" Then
                nomfeuil = f.CodeName
            End If
        Next
 
  With ThisWorkbook.VBProject.VBComponents("DonneedAjoutCHOUT").CodeModule
    S = .Lines(1, .CountOfLines)
  End With
 
  With Workbooks(nw).VBProject.VBComponents(nomfeuil).CodeModule
    I = Workbooks(nw).VBProject.VBComponents(nomfeuil).CodeModule.CountOfLines
    If I > 0 Then
      For J = 1 To I
      .DeleteLines (1)
      Next J
    End If
      .AddFromString S
  End With
 
exit_erreur:
    Exit Sub
faux:
    Msgerror = "N°002-Erreur de déroulement de Macro. Notez le numéro et voir avec SRA."
    response = MsgBox(Msgerror)
    Resume Next
End Sub

Dans un module avec le nom "DonneedAjoutCHOUT" je lui ai mis ce que j'avais besoin.

:king: