RE: Macro qui écrit des macros

[Philou]

Merci Thierry pour ton aide précieuse.

je souhaite à présent pouvoir insérer plusieurs boutons sur une même feuille. En cliquant sur ces boutons, on va directement sur des feuilles précises (comme dans ma précédente demande).

j'ai repris le code que tu m'avais donné en le modifiant mais ça ne marche pas :

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
With Worksheets(c)
Set MyButton = .OLEObjects.Add(classtype:='Forms.CommandButton.1')
End With

With Worksheets(c)
Set YourButton = .OLEObjects.Add(classtype:='Forms.CommandButton.2')
End With



le message d'erreur est celui-ci : 'cannot insert the object'

comment dois-je faire ???

merci d'avance

 

[CBernardT]

Bonjour Philou,

Essayes avec cette syntaxe :

Dim MyButton As Object, YourButton As Object

ActiveWorkbook.Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = 'C'
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=78, Top:=21.75, Width:=161.25, Height:=75).Select
Set MyButton = .Shapes('CommandButton1')
End With
With Sheets('C')
.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Link:=False, DisplayAsIcon:=False, Left:=301.5, Top:=24.75, Width:=177.75, Height:=71.25).Select
Set YourButton = .Shapes('CommandButton2')
End With

Cordialement

Bernard