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
Classeur2 (où la macro se trouve) dans le module ModifFichePE
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
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
Code:
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
Code:
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
Dernière édition: