Discussion :

[defluc]

Bonjour à tous,

Décidément, ce n'est pas mon jour de chance.

Quant à la question, elle est dans le sujet.

Dans la suite de mon message précédent sur ce forum http://www.developpez.net/forums/d12...ent-procedure/, je voudrais être éclairé sur la chaine de caractère à affecter à OnAction pour qu'un bouton exécute l'équivalent de l'instruction

Code :

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

Application.Run (Action, ThisWorkbook.ActiveSheet)

D'avance, mille mercis

[Jean-Philippe André]

salut,

j'ai un peu de mal à saisir ta question

- tu veux que la fonction Run "simule" le clic d'un bouton ?
- tu veux que l'application.run soit lancé à partir d'un bouton ?

Merci de nous éclairer sur ce point stp

[defluc]

Comme dit dans mon message précédent, le classeur 2 comporte un bouton qui doit exécuter la procédure sur la feuille activée dudit classeur.
Il faut donc affecter la commande effectuant cette opération à l'évènement OnAction de ce bouton.

L'argument de la feuille sur lequel la procédure doit s'effectuer n'est variable que quand celle-ci est appelée, par un classeur extérieur, Classeur 1 dans le message précédent.

[Jean-Philippe André]

la est merveilleuse
http://excel.developpez.com/faq/inde...sOnActionShape

[defluc]

la FAQ est merveilleuse

mais elle ne peut penser à tout.
Le problème réside semble-t-il dans les guillemets ou les apostrophes et dans leur combinaison.
La chaine de OnAction doit être encadrée par des guillemets. Mais, à l'intérieur de celle-ci, le chemin et le nom du classeur doit l'être également pour le cas où il contiendrait des espaces.
J'ai essayé

Code :

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

  Action = "'" & ThisWorkbook.FullName & "'!AddNoPol " & "'""" & "ThisWorkbook.ActiveSheet""" & "'"

et

Code :

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

  Action = "'" & ThisWorkbook.FullName & "'!AddNoPol ""ThisWorkbook.ActiveSheet"""

Dans les 2 cas, j'ai l'erreur 2004 : Erreur définie par l'application ou par l'objet.

[Jean-Philippe André]

OK,

passons en revue les possibilités qui s'offrent à nous :
- remplacer les multiquotes par des chr(34) pour s'assurer qu'on n'en a pas en "trop"
- essayer de voir si un code du style ferait l'affaire

Code :

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

Action = "'" & ThisWorkbook.FullName & "'!AddNoPol " & "'""" & ThisWorkbook.ActiveSheet  & """'"

- envisager la possibilité d'avoir au lieu du passage en paramètre de la spreadsheet l'utilisation d'un optional et d'un activesheet par défaut si absence du paramètre.

[defluc]

A part le numéro de l'erreur qui change, même topo.

Je continue à chercher et j'ai constaté que quand la procédure ne comporte pas d'argument, cela fonctionne avec

Code :

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

  OnAction = "'" & ThisWorkbook.FullName & "'!AddNoPol"

De même, si la macro procédure est activée à partir du classeur qui la contient cela fonctionne également avec

Code :

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

  OnAction = "'AddNoPol " & "ThisWorkbook.ActiveSheet" & "'"

C'est la concaténation des 2 qui provoque une erreur.

[defluc]

J'ai enfin trouvé

Code :

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

    OnAction = "'" & ThisWorkbook.FullName & "'!'AddNoPol ThisWorkbook.ActiveSheet" & "'"

Merci à jpcheck pour ses conseils.