Exécuter une macro écrite dans un autre classeur

[poups]

Bonjour,
Je travaille sur un fichier
Je transfert des données du fichier sur un autre fichier apres quoi je souhaite exécuter une macro dans ce 2 eme fichier
Tous marche (Ouverture fichier / Transfert de donnée / pilotage macro)
Le PB c'est qu'il ne trouve pas la macro et me met un message d'erreur ...

Sub Notationt()

'Notation.Show

Dim C_Source As Workbook
Dim C_Destination As Workbook
Dim Notation As Workbook


Dim Chemin As String
'Dim NomDI As String

 
User = Application.UserName
Chemin = "C:\Users\" & User & "\Desktop\"
Nfichier = Worksheets("GestionDTS").Range("G9").Value

Set C_Source = Workbooks("" & Nfichier & ".xlsm")
Workbooks.Open ("C:\users\" & User & "\Documents\ModeleSFF\Fiches de notations individuelle RPS-SIS.xlsm")
Set C_Destination = Workbooks("Fiches de notations individuelle RPS-SIS.xlsm")

C_Destination.Worksheets("Notation DI").Range("E18").Value = C_Source.Worksheets("GestionDTS").Range("G9").Value
C_Destination.Worksheets("Notation DI").Range("E19").Value = C_Source.Worksheets("DI-MES").Range("F10").Value
C_Destination.Worksheets("Notation DI").Range("E21").Value = C_Source.Worksheets("GestionDTS").Range("F4").Value

ActiveWorkbook.Save
 
Application.Run "C:\users\" & User & "\Documents\ModeleSFF\Fiches de notations individuelle RPS-SIS.xlsm!toto"


End Sub

Pourtant dans le fichier destination la macro exsite et fonctionne quand je la lance manuellement ...

Sub toto()
Notation.Show
End Sub

Peut on m'expliquer ce qui ce passe ?

Merci d'avance
Sylvain

 

[jpb388]

Re : Exécuter une macro écrite dans un autre classeur

Bonjour a tous
remplace & User & par & Application.Username &

 

[Dranreb]

Re : Exécuter une macro écrite dans un autre classeur

Bonsoir.
Je ne pense pas qu'il faille spécifier le chemin si le classeur contenant la macro est ouvert.
En revanche si son nom contient des espaces, il faut peut être l'encadrer d'apostrophes. Ou peut être ne pas le spécifier non plus si c'est le classeur actif.
Cordialement.

 

[poups]

Re : Exécuter une macro écrite dans un autre classeur

Bonjour,
Alors j'ai simplifié en suivant vos conseils (?) toujours pareil !
erreur d'éxécution macro '1004' le chemin est bon cela dit que la macro n'existe pas ou qu'elle est désactié ...

Pourtant Le classeur(2) est bien ouvert VB ce met sur ma macro ! et je l'exécute en manu
Je ne comprend plus rien

Sub Notationt()

'Notation.Show

Dim C_Source As Workbook
Dim C_Destination As Workbook
Dim Notation As Workbook


Dim Chemin As String
Dim Nfichier As String

Chemin = "C:\Users\" & Application.UserName & "\Desktop\"
Nfichier = Worksheets("GestionDTS").Range("G9").Value

Set C_Source = Workbooks("" & Nfichier & ".xlsm")
Workbooks.Open ("C:\users\" & Application.UserName & "\Documents\ModeleSFF\FichesDeNotationsIndividuelleRPS-SIS.xlsm")
Set C_Destination = Workbooks("FichesDeNotationsIndividuelleRPS-SIS.xlsm")

C_Destination.Worksheets("Notation DI").Range("E18").Value = C_Source.Worksheets("GestionDTS").Range("G9").Value
C_Destination.Worksheets("Notation DI").Range("E19").Value = C_Source.Worksheets("DI-MES").Range("F10").Value

ActiveWorkbook.Save

Application.Run "C:\users\" & Application.UserName & "\Documents\ModeleSFF\FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto"

End Sub

 

[poups]

Re : Exécuter une macro écrite dans un autre classeur

Sans le chemin, cela ne marche pas même code erreur ..

Application.Run "FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto"

Si le fichier est actif sans sécification du non de fichier, idem .....

Application.Run "toto"

Le pire c'est que dans tous les cas, cela ouvre la fenetre ou est la macro "toto" sous VB

 

[jpb388]

Re : Exécuter une macro écrite dans un autre classeur

bonjour a tous,Danreb

si les 2 classeurs sont ouvert c'est celle ci qui est la bonne

Application.Run "FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto"

mets tes deux classeurs vides de données confidentiels

 

[Dranreb]

Re : Exécuter une macro écrite dans un autre classeur

Bonjour
Essayez d'enregistrer une nouvelle macro pendant que vous demandez l'exécution de votre macro toto, en principe ça vous y engendrera une instruction Application.Run correcte.

 

[poups]

Re : Exécuter une macro écrite dans un autre classeur

Bonsoir,
Ben voila mes deux fichier ...
je n'ai toujour pas trouvé pourquoi cela ne marche pas !
merci d'avance de votre aide
sylvain

 

[Dranreb]

Re : Exécuter une macro écrite dans un autre classeur

Extrait de l'aide sur Sub, instruction

Private

Facultatif. Indique que la procédure Sub n'est accessible qu'à d'autres procédures du module dans lequel elle a été déclarée.

Ils aurait pu ajouter … et aussi par les contrôleurs d'objets, mais en aucun cas depuis un autre module ni par un Run

 

[poups]

Re : Exécuter une macro écrite dans un autre classeur

Bonjour,
Les "Privates ont été rajouté pour essai à un moment donné
Je les ai enlevé cela ne marche pas mieux

Les deux fichier sont a poser sur le bureau, la macro est dans le module 4 du fichier "DI..." et cel plant à la derniere ligne sur

Application.Run "FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto"

 

[Dranreb]

Re : Exécuter une macro écrite dans un autre classeur

Bonjour.
Avez vous essayé de faire fabriquer votre Application.Run par l'enregistreur de macro ?
Moi je ne peux pas parce que c'est du .xlsm, et à la conversion en .xls il fabrique un nom tout simple de la forme Xl00000nnn.xls où il n'y a certainement pas nécessité de délimiter le nom du classeur par des apostrophes.

 

[pasquetp]

Re : Exécuter une macro écrite dans un autre classeur

salut à tous

j'ai fait quelque chose de similaire et ca marche : personaliser la barre doutil access rapide

ensuite macro au lieu de commande courante et passer la macro a droite

et ensuite essayer sur le second fichier en cliquant sur le bouton et la macro sappliquera au fichier

 

[poups]

Re : Exécuter une macro écrite dans un autre classeur

bonjour,
je trouve pas tres clair les explications ....

 

[Dranreb]

Re : Exécuter une macro écrite dans un autre classeur

Avez vous essayé:

Application.Run "'FichesDeNotationsIndividuelleRPS-SIS.xlsm'!toto"

Voire :

Application.Run "'FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto'"

 

[jpb388]

Re : Exécuter une macro écrite dans un autre classeur

bonjour le forum,Danreb,pasquetp,poups

étant sur 2007 j'ai créer 2 classeurs et j'ai utilisé

Application.Run "FichesDeNotationsIndividuelleRPS-SIS.xlsm!toto"

cela fonctionne parfaitement et bizarrement pas avec les classeurs de poups et j'ai eu beau regarder ses macros je n'ai rien trouvé