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 : 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
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