indice d worksheet

[rémy25]

Bonjour,

Voici le code qui me pose problème:

Sub Creation_bouton()

Dim oOLE As OLEObject
Dim Code$
'j'affecte une fonction que j'ai créé au code de mon bouton
Code = ' Traitement 3,1,Bouton5A.Value' & vbCrLf

Set oOLE = ActiveSheet.OLEObjects.Add(ClassType:='Forms.ToggleButton.1', _
Link:=False, DisplayAsIcon:=False, Left:=340, Top:=30, Width:=100, Height:=30)

With oOLE
.Name = 'Bouton5A'
.Object.Caption = '+ / -'
End With

With ActiveWorkbook.VBProject.VBComponents(Worksheets(1).Name).CodeModule
.InsertLines .CreateEventProc('Click', 'Bouton5A') + 1, Code
End With

End Sub

Mon problème vient du fait que ce code fonctionne uniquement si la feuille 1 s'appele 'Feuil1'. Si je lui donne un autre nom, il me dit:
Erreur d'execution '9'
L'indice n'appartient pas à la sélection.

D'où vient cette erreur ?

Merci de votre aide

Rémy de besak'

 

[salim]

Bonsoir rémy25,et le Forum

Erreur d'execution '9'L'indice n'appartient pas à la sélection.

cela signifie sans doute dans ce cas que la feuille à laquelle tu fais référence n'existe pas, ou alors tu as mal orthographié le nom essaie en respectant les majuscules et minuscules du nom de la feuille.

salim.