Discussion :

[lucazzo]

Bonjour,

J'aimerais ouvrir à travers un bouton, un objet OLE que j'aurais placé précédement sur ma feuille Excel.
Voici le code que j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.Shapes("Object 57").Select
Selection.Verb Verb:=xlPrimary

Mon seul soucis est que là, je sélectionne l'objet 57 et puis je l'ouvre. Mon application Excel est constitué de la façon où l'utilisateur peux insérer autant d'objet OLE qu'il veut et combien de fois il veux. Et donc je ne sais pas quel numéro a l'objet.
Ya-t-il un moyen plus simple pour ouvrir un objet ou alors peut-être un moyen de bloqué l'insertion d'objet tant qu'il y en a déjà un sur la feuille ??

Merci pour vos lumières..
Luca

[spitnolan]

Bonjour,

une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Nom = Selection.Name
ActiveSheet.Shapes(Nom).Select
Selection.Verb Verb:=xlPrimary

Cordialement

[lucazzo]

Merci pour la réponse, mais cela m'affiche un message d'erreur :

"Application-defined or object-defined error"

A mon avis, le problème vient du faite que mon objet n'est pas séléctionné. Et de toute manière, même en sélectionnant d'abord l'objet, j'ai toujours ce message..

[spitnolan]

Re,

A mon avis, le problème vient du faite que mon objet n'est pas séléctionné

Là, c'est sûr que si tu ne le sélectionnes pas, ça ne peut pas marcher...

Par contre chez moi ça fonctionne... ou alors je n'ai pas compris ta demande...

Cordialement

[lucazzo]

Oui, mais alors comment faire pour qu'il soit séléctionné automatiquement ??
Car l'utilisateur peut changer de feuille entre temps pour pouvoir faire d'autre chose..

[fring]

Bonjour tlm,

On a pas encore trouvé le moyen de faire un code subliminal, il faut bien définir l'objet d'un moyen ou un autre.

Si tu expliquais ce que tu veux faire exactement, on pourrait peut-être trouver une autre piste pour y arriver.