associer une macro à un objet excel

Bonjour,

je reviens vers vous avec un autre probleme :(((

j'ai une macro qui marche correctement (grace à ce forum) mais je dois provoquer son exécution en allant sur Macros >> Run

je veux associer cette macro à un click objet ( Rectangle inseré dans la feuille excel).
j'ai cliqué sur l'objet en question avec le bouton droit de la souris apres Assign Macro.
J'ai eu la nouvelle procedure "Sub Rectangle10_Click()" crée
et donc j'ai ajoute un appel vers ma macro deja existante dans cette procedure.

Comme suit:

Code:

---

1 2 3 4

Sub Rectangle10_Click() Call Yosser.OpenFile End Sub

---

Mais quand je clique sur le fameux objet en question, la macro ne s'éxecute pas

Merci pour vore aide ;)

Bonjour,
Ta macro c'est pas un fichier..
Si c'est une sub,

Code:

---

1 2 3

Sub Rectangle10_Click() Yosser End

---

Si c'est une fonction,

Code:

---

1 2 3

Sub Rectangle10_Click() Call Yosser() End

---

A+

Merci pour ta reponse


Mais "Yosser.OpenFile" c'est un nom de macro
c'est pas une commande

et même quand j'ai essayé de mettre le nom de la sub principale de ma macro, un click sur l'objet en question ne déclenche rien :(

Mais une macro avec un point dedans ça doit te donner une erreur, sinon explique où est cette macro ?

Ma macro marche vraiment bien !!! mais je doit faire Macros >> Run

Je t'explique la disposition de la macro :

J'ai un Module 1 : Dans lequel ya le code de la fonction shellexecute

apres dans Les Microsoft Excel Objects

J'ai 4 sheets qui portent le nom de mes feuilles excel et dessous ya une sorte de classeur Excel

c'est a ce niveau que j'ai ecrit mon code le voila :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Sub Rectangle11_Click() OpenFile End Sub   Sub OpenFile()   Dim strFileName As String Dim X Dim Y If Cells(18, 6) = "F" Then strFileName = "Le chemin de mon fichier" X = OuvrirDocument(strFileName) End If End Sub

---

Le rectangle que j'ai inserer est dans la deuxieme feuille du classeur
alors que la cellule sur laquelle je fais le test et dans la premiere feuille du classeur.

Penses-tu que le probleme provient de la??

Merci

Bonjour,
Effectivement appeler une macro dans un autre module de feuille pose problème.
Met plutôt ta macro dans un module général (module1 par exemple) mais attention, tu doit alors nommer l'origine de tes cellules

Code:

---

If Sheets("NomDeLafeuille").Cells(18, 6) = "F" Then

---

A+

ton raisonnement est juste!!!
J'ai realisé les modifs sur le code et ça marche bien quand je place le rectangle dans la premiere feuille
mais quand je le place dans la deuxieme feuille ceci ne marche pas un message d'erreur me dit :

"Cannot run the macro, ......, The macro may not be available in this workbook"

Comment est ce que je pourrais faire pour activer ma macro???

Merci

c'est bon j'ai trouvé :)))
merci pour ton aide!!
je suis vraiment novice en VBA !!!
:mouarf: