"Impossible de trouver la macro"

[marie49]

Bonjour,

Cela fait un moment que je cherche sans rien trouver...

Donc, voici le problème : j'appelle une macro à partir d'un autre classeur et j'ai le message d'erreur "Impossible de trouver la macro"

Classeur1 (celui qui appelle la macro) dans ThisWorkBook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
...
If Not Application.Intersect(Target, Sh.Range("N10:N" & NbrLig)) Is Nothing Or Not Application.Intersect(Target, Sh.Range("P9:P" & NbrLig)) Is Nothing Then

NomCode = Sh.Name
NomModule = Cells(3, 3)
Application.Run "Menu-fiche.xls!ModifFichePE.ModifierFichePE(" & NomCode & ", " & NomModule & ")"
...
end sub

Classeur2 (où la macro se trouve) dans le module ModifFichePE

Public NomCode, Nommodule As String

Sub ModifierFichePE(ByVal Code As String, ByVal Module As String)
NomCode = Code
Nommodule = Module
ChoixFicheModifSupAjout.Show
End Sub

Quelqu'un aurait-il une idée, svp? Y a t-il un paramètre supplémentaire ou bien, je ne peux pas passer des valeurs?

Merci au forum
Marie

 

[kjin]

Re : "Impossible de trouver la macro"

Bonjour,

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
...
If Not Application.Intersect(Target, Sh.Range("N10:N" & NbrLig)) Is Nothing Or Not Application.Intersect(Target, Sh.Range("P9:P" & NbrLig)) Is Nothing Then

NomCode = Sh.Name
NomModule = Cells(3, 3)
Application.Run "Menu-fiche.xls!ModifFichePE[COLOR="Red"].ModifierFiche[/COLOR](" & NomCode & ", " & NomModule & ")"
...
end sub

Kesako ?!
c'est pas plutot

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
...
If Not Application.Intersect(Target, Sh.Range("N10:N" & NbrLig)) Is Nothing Or Not Application.Intersect(Target, Sh.Range("P9:P" & NbrLig)) Is Nothing Then

NomCode = Sh.Name
NomModule = Cells(3, 3)
Application.Run "Menu-fiche.xls!ModifierFichePE", NomCode, NomModule
...
end sub

A+
kjin

 

[marie49]

Re : "Impossible de trouver la macro"

Bonjour kjin,

Non! C'est une erreur de ma part dans le message.
J'ai bien mis ModifierFichePE dans la macro.
Je vais modifier mon message

Marie

 

[kjin]

Re : "Impossible de trouver la macro"

Re,
J'ai réédité
A+
kjin

 

[marie49]

Re : "Impossible de trouver la macro"

Pour info, j'ai excel 2003.

Est ce que le problème peut venir du nom de mon fichier avec le tiret?

Je vais faire un test sans le tiret...
A+
marie

 

[kjin]

Re : "Impossible de trouver la macro"

Re,
je ne sais pas si ça peut t'aider
classeur1 départ

Sub Message()
NomCode = "bonjour"
NomModule = "Marie"
Application.Run "Classeur2.xls!ModifierFichePE", NomCode, NomModule
End Sub

Classeur2 arrivée

Sub ModifierFichePE(ByVal Code As String, ByVal Module As String)
MsgBox Code & " " & Module
End Sub

Evite "Module" comme nom de variable
A+
kjin

 

[marie49]

Re : "Impossible de trouver la macro"

J'ai remplacer Module par NModule...

J'ai modifier la syntaxe comme tu as proposé...
Même message d'erreur

Une autre idée?

Marie

 

[kjin]

Re : "Impossible de trouver la macro"

Re,
Oublié ton tiret 🙄
'Menu-fiche.xls'

Application.Run "'Menu-fiche.xls'!ModifierFichePE", NomCode, NomModule

A+
kjin

 

[marie49]

Re : "Impossible de trouver la macro"

Sans le tiret, le problème est le même.

J'ai essayé avec des quotes simples comme ce que tu as mis dna ston denier message : même message d'erreur.

Y aurait-il pas une histoire de droit d'accès au fichier Menu-fiche?

Je vais essayé avec une autre macro. Et après avec un autre fichier

Sinon, je suis toujours preneuse pour des idées
A+

Marie

 

[kjin]

Re : "Impossible de trouver la macro"

Re,

J'ai essayé avec des quotes simples comme ce que tu as mis dna ston denier message : même message d'erreur.

Ou as tu vu que j'avais mis des qotes simples, moi je ne vois pas ça !
Peux pas t'en dire plus
A+
kjin

 

[marie49]

Re : "Impossible de trouver la macro"

Y aurait-il une autre personne pour m'aider?

J'ai testé avec une autre macro :rien
avec un autre classeur :même erreur.

je vais essayer en mettant le chemin d'accès en totalité.
Ou bien faut-il que j'active le classeur même si il est ouvert?

marie

 

[marie49]

Re : "Impossible de trouver la macro"

Re,

Ou as tu vu que j'avais mis des qotes simples, moi je ne vois pas ça !
Peux pas t'en dire plus
A+
kjin

Les quotes simples sont à 'Menu-fiche.xls'

Marie

 

[marie49]

Re : "Impossible de trouver la macro"

Bonjour,

Je n'ai toujours pas résolu le problème...

Est-ce que quelqu'un peut me donner une liste de causes possibles..?

merci
Marie

 

[job75]

Re : "Impossible de trouver la macro"

Bonjour Marie, salut kjin,

J'ai l'impression que la macro ModifierFichePE est dans le code d'une feuille.

Il faudrait qu'elle soit dans un Module...

A+

 

[marie49]

Re : "Impossible de trouver la macro"

Bonjour Kjin,

En fait, cette procédure est dans un module (j'ai 4 ou 5 modules).

Elle est appelé par une autre macro qui est activée par un bouton se trouvant sur la feuille.

Je vais modifier ce bouton appelant pour vérifier...

Je vais vérifier si je n'ai pas deux procédures de même nom...

Mais je cherche tout ce qui est possible...

Je viens de constater qu'il n'y a qu'avec ce fichier (Menu-fiche.xls) que je ne peux pas appeler une macro. Existe t-il un paramètre qui empêcherait cela?



A+
marie