XL 2019 Application.run

[dadaze]

Bonjour,

Je suis confronté à un problème avec Application.run

Je m'explique, j'ai créé une macro pour copier des données vers un autre classeur ce dernier change en fonction du mois.

Donc pour sélectionner le classeur de destination j’utilise le code suivant : Application.GetOpenFilename.

je déclare mon classeur f2 = ActiveWorkbook.Name

Cela fonctionne très bien les données sont bien copiées dans le classeur de destination en l’occurrence workbooks(f2)

Après ça se complique.

En effet, je souhaite lancer une macro dans le classeur de destination donc workbooks(f2).

Pour ce faire, j'utilise le code ci dessous (pour information nom du module dans lequel se triuve la macro "factures " le nom de la macro "facturesMois")

Application.Run ("'Workbooks(f2)'! facturesMois")

J'ai tourné le code dans tous les sens mais rien à faire ça ne fonctionne pas ça génère un message comme quoi la macro est introuvable

Voilà, si l'un d'entre vous peut me consacrer quelques instants pour m'aider, je l'en remercie d'avance.

Bonne journée

 

[Dudu2]

Bonjour,

FunctionReturnValue = Application.Run("'" & NomClasseur & "'!NomMacro", Param1, Param2, Param3)

 

[dadaze]

Bonjour,

FunctionReturnValue = Application.Run("'" & NomClasseur & "'!NomMacro", Param1, Param2, Param3)

Merci beaucoup, je testerai cela dès demain

 

[patricktoulon]

Bonjour
dans certains cas pas toujours il faut le chemin complet mais dans tout les cas le fullname fonctionne
alors pourquoi s'en priver
donc si F2 est bien le nom de ton classeur 2 alors
x=Application.Run ("'" & Workbooks(f2).fullname &"'! facturesMois")

 

[dadaze]

Bonjour
dans certains cas pas toujours il faut le chemin complet mais dans tout les cas le fullname fonctionne
alors pourquoi s'en priver
donc si F2 est bien le nom de ton classeur 2 alors
x=Application.Run ("'" & Workbooks(f2).fullname &"'! facturesMois")

Je vous adresse tous mes remerciements idem pour Dudu2 la macro se lance ça fonctionne parfaitement.

Bien cordialement