Discussion :

[scully2501]

J'explique:

avant j'avais comme code dans mon fichier conso:

Code :

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

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 :

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

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

Argument non facultatif avec feuille Z_BS_M14_10_01_111111

Je ne vois pas ce qui peut produire ce message

[Jean-Philippe André]

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 ?

[scully2501]

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

[Singular]

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 ?

[scully2501]

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?

[ouskel'n'or]

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