Discussion :

[Hanen85]

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 :

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

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

[LeForestier]

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

Code :

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

1
2
3
Sub Rectangle10_Click()
    Yosser
End

Si c'est une fonction,

Code :

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

1
2
3
Sub Rectangle10_Click()
    Call Yosser()
End

A+

[Hanen85]

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

[LeForestier]

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

[Hanen85]

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 :

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

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

[LeForestier]

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 :

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

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

A+