XL 2010 Macro ouverture d'un objet inséré dont le nom varie en fonction d'une valeur

Bigpouss

XLDnaute Nouveau
Bonjour a tous,
Je rencontre une difficulté sur le point suivant :
J'ai inséré des objets dans une feuille de mon classeur et je souhaite l'ouvrir a laide d'une macro.
Via l'enregistreur de macro j'obtiens le code suivant :

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveSheet.Shapes.Range(Array("Objet1")).Select
Selection.Verb Verb:=xlPrimary
End Sub

Jusque la pas de soucis,
Je souhaite désormais faire évoluer la macro en incluant une variable.
Sur cette meme page la valeur contenue dans la case A1 devra ouvrir l'objet correspondant.
De façon plus expliscite je souhaite que si A1=1 la macro ouvre l'objet 1 ou si A1=2 alors elle ouvre l'objet 2.

J'ai testé ce code la :
Sub Macro1()
'
' Macro1 Macro
'
Dim Lien
Lien = Range("A1").Value

ActiveSheet.Shapes.Range(Array(Lien)).Select
Selection.Verb Verb:=xlPrimary
End Sub

Et la j'ai un message d'erreur : Erreur d'exec 1004 erreur definie par l'application ou par l'objet

D'avance merci pour votre aide
 

Discussions similaires