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
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