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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
2 K
Retour