Discussion :

[allergique]

Bonsoir,

Je fais appel à votre aide car je suis bloqué depuis assez longtemps sans trouver la solution nulle part...

J'ai une macro qui ajoute une nouvelle feuille, ainsi qu'un bouton de commande et le code associé en automatique.

Le problème est que la macro ajoute une nouvelle feuille appelée "Feuil3", mais le code associé au bouton se mets dans "Feuil1" au lieu de Feuil3.

Si je relance la macro, la feuille ajoutée est Feuil4, et le code du bouton se met dans Feuil2 et ainsi de suite

Voici le code que j'ai mis:

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
28
29
30

Sub allergique()
'
' allergique Macro
' Macro enregistrée le 19/07/2006 par Allergique
'
' Touche de raccourci du clavier: Ctrl+e
Dim FeuilSource As Worksheet, FeuilDest As Worksheet
Set FeuilDest = Sheets.Add 'Ajoute nouvelle feuille
(.....)
  'Ajoute un bouton de Commande 
    Set NouveauBouton = FeuilDest.OLEObjects.Add _
      ("Forms.CommandButton.1")
    With NouveauBouton
        .Left = 200
        .Top = 13
        .Width = 70
        .Height = 30
        .Object.Caption = "Infos Moyens"
    End With
   'ajoutek le code se rapportant au bouton...
    Code = "Sub CommandButton1_Click()" & vbCrLf
    Code = Code & "  Range(""CA8"").select" & vbCrLf
    Code = Code & "End Sub"
   'Ecriture du code dans le module de la feuille 
      With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
      NextLine = .CountOfLines + 1
      .InsertLines NextLine, Code
      End With

Je vous joins le lien vers mon tableau:
http://allergique5.site.voila.fr/macro.zip

Merci d'avance

Bonne soirée

[SfJ5Rpw8]

cela viens surement de ton activeSheet (feuille active)...


essai

Code :

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

1
2
  With ThisWorkbook.VBProject.VBComponents(FeuilDest.CodeName).CodeModule

[allergique]

C'est bon, ça fonctionne... j'avais essayé FeuilDest.Name mais pas FeuilDest.CodeName

Merci et bonne nuit