Probleme avec Application.run

J'explique:

avant j'avais comme code dans mon fichier conso:

Code:

---

1 2	Application.Run (MyNom & "!MixCroiseeStart")

---

Ce code marché tres bien.

MixCroiseeStart etant une procedure du fichier MyNom

Ensuite apres quelque modification j'ai creer deux autres procedure qui remplace MixCroiseeStart donc:

Code:

---

1 2 3 4 5 6

If Left(MySheet, 12) = "Z_BS_M14_10_" Then Application.Run (MyNom & "!format_cr_fonc_gene") Else Application.Run (MyNom & "!format_cr_fonc") End If

---

La j'ai un message d'erreur

Citation:

---

Argument non facultatif avec feuille Z_BS_M14_10_01_111111

---

Je ne vois pas ce qui peut produire ce message

bonjour,
est-ce normal que tu utilises dans un cas MySheet et dans l'autre MyNom ?
As-tu vérifié que Z_BS_M14_10_01_111111 contient bien la procédure format_cr_fonc_gene ?

Citation:

---

Envoyé par jpcheck

bonjour,
est-ce normal que tu utilises dans un cas MySheet et dans l'autre MyNom ?
As-tu vérifier que Z_BS_M14_10_01_111111 contient bien la procédure format_cr_fonc_gene ?

---

la condition concerne le nom de la feuille
MyNom est le nom du classeur

et bien sur le classeur MyNom contient bien la procedure format_cr_fonc_gene

Citation:

---

La j'ai un message d'erreur

Citation:
Argument non facultatif avec feuille Z_BS_M14_10_01_111111

---

Il me semble que le message d'erreur indique la cause... Une ou l'autre de tes fonctions prend-elle un argument ?

Citation:

---

Envoyé par Singular

Il me semble que le message d'erreur indique la cause... Une ou l'autre de tes fonctions prend-elle un argument ?

---

je ne comprends pas ta question?

Tiens, tu tombes à pic, regarde là, je viens de faire le tour des hypothèses, ça t'aidera peut-être ;)

Citation:

---

Envoyé par ouskel'n'or

Tiens, tu tombes à pic, regarde là, je viens de faire le tour des hypothèses, ça t'aidera peut-être ;)

---

Merci pour ce lien il est intéressant.