P
Philou
Guest
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
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