Problème d'affectation d'une macro à un bouton

[Franck77]

Bonjour à tous,

Voilà mon problème :

Je lance une macro qui crée un nouveau classeur.

Dans ce nouveau classeur j'ai besoin d'un moteur de recherche, donc la macro copie le module2 ( ou se trouve le moteur) vers le nouveau classeur.

Ensuite elle crée un bouton 'Rechercher' dans le nouveau classeur et lui affecte la macro Rechercher.


Le problème c'est qu'elle affecte au nouveau classeur la macro de l'ancien classeur !!

quelqu'un aurait une idée ??

Merci d'avance.

 

[n3Twork]

SANS ton code je vois pas comment nous pourrions t'aider ...

 

[Franck77]

Voila le code

Sub go()

CopieCodeModule
CréerBouton


End Sub

''>>>Code du Grand Frédérique Singonneau <<<
Sub CopieCodeModule()
Dim S As String, Wbk As Workbook

With ActiveWorkbook.VBProject.VBComponents('Module2').CodeModule
S = .Lines(2, .CountOfLines)
End With

Set Wbk = Workbooks.Add
Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents('Module1').CodeModule
.AddFromString S
End With

End Sub

Sub CréerBouton()

Workbooks(3).Worksheets(1).Activate
'Défini l'emplacement et la taille du bouton
ActiveSheet.Buttons.Add(60, 0, 60, 12.75).Select
Application.ScreenUpdating = False
Selection.OnAction = 'Rechercher'
Selection.Characters.Text = 'Rechercher une fiche'
With Selection.Characters(Start:=1, Length:=10).Font
.Name = 'Arial'
.FontStyle = 'Normal'
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
Range('A1').Select
End Sub