Ouverture objet OLE par code

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:

---

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

Bonjour,

une solution :

Code:

---

1 2 3

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

---

Cordialement

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

Re,

Citation:

---

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

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

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.

Ok, donc voila ce que je veux faire :

Sur une feuille excel, je veux que l'utilisateur puisse charger un fichier (word ou pdf essentiellement) sans passer par la barre d'outils Insert objet.
Donc j'ai mis en place le moyen par code d'insérer un fichier sur la feuille excel.
Maintenant j'aimerais qu'un autre utilisateur puisse ouvrir directement depuis cette feuille excel le fichier que l'utilisateur précédent a chargé dans ce classeur excel.
Une autre piste peut-être ?

Bonjour tout le monde,

Arf! je viens de comprendre...:lol:
Par contre je ne comprends rien à ton explication lucazzo : En français ça donne quoi ? ou en langage VBA ?

Citation:

---

d'insérer un fichier sur la feuille excel

---

????

Citation:

---

qu'un autre utilisateur puisse ouvrir directement depuis cette feuille excel le fichier que l'utilisateur précédent a chargé dans ce classeur excel.

---

????

Cordialement

insérer un fichier sur la feuille excel =

Insérer un objet OLE (un fichier word, pdf, etc..) sur une feuille excel. Une icone apparait et en double cliquant dessus, on ouvre le fichier en question.


qu'un autre utilisateur puisse ouvrir directement depuis cette feuille excel le fichier que l'utilisateur précédent a chargé dans ce classeur excel =

Le user A charge un fichier (un objet OLE) sur une feuille excel et le user B peut l'ouvrir en double cliquant dessus.

Re,

Toujours rien compris...
Si tu utilises Insertion/objet pour arriver à tes fins (et même si je n'en vois pas l'intérêt), un simple double clic sur l'objet en question permet d'ouvrir le bon fichier... Non???
J'ai raté un truc ???

Cordialement

Effectivement, je ne suis pas assez clair car je vous pose des questions qui vont me permettre par la suite de réglé mon réel problème.
Donc je crois qu'il est plus simple si je vous expose mon problème primaire :

Lorsque l'utilisateur va charger un objet OLE, il aura le choix entre les formats .pdf et .rtf
Moi je voudrais qu'en fonction du format du fichier séléctionné, l'icone de l'objet OLE soit soit une icone PDF soit une icone Word.

Bonjour tlm,

J'ai déjà eu une discution sur ce sujet, cela pourra peut-être te mettre sur une piste

http://www.developpez.net/forums/sho...t=ic%F4ne+word
.