Executer macro dans un autre classeur

[Francois73]

bonjour

j'ai encore besoin de votre aide , en fait j'exporte une feuille d'un classeur A vers un classeur B ,
jusque là pas de problème, je voudrais ensuite que sur le classeur B , la macro "miseenforme" s'execute et enfin que le classeur B s'enregistre et se referme

voici pour l'instant le code d'export de la feuille classeur A vers classeur B
Sub exporttk()
Dim objWbk As Workbook
Dim objSht1 As Worksheet, objSht2 As Worksheet


Set objSht1 = ThisWorkbook.Worksheets("Récap")
' ouvrir classer de destination
Workbooks.Open Filename:=ThisWorkbook.Path & "\technicien tri aprés controlev3.xls"
' Classeur destination
Set objWbk = Application.Workbooks("technicien tri aprés controlev3.xls")

' Feuille destination
Set objSht2 = objWbk.Worksheets("oriclef")

' Copie de la feuille.
objSht1.Copy before:=objSht2
End Sub


merci de votre aide

 

[Pierrot93]

Re : Executer macro dans un autre classeur

Bonjour,

en fin de procédure, pour fermer et enregistrer le classeur B :

objWbk.Close True

bonne journée
@+

 

[Francois73]

Re : Executer macro dans un autre classeur

merci de ta réponse mais sais tu comment executer la macro "miseenforme" du classeur b avant de le refermer

merci

 

[Pierrot93]

Re : Executer macro dans un autre classeur

Re,

essaye ceci :

Application.Run "ClasseurB.xls!NomTaMacro"

 

[Francois73]

Re : Executer macro dans un autre classeur

ça marche mais avec une petite correction sur les guillemets

Application.Run "'classeur B.xls'!NomTaMacro"
merci de ton aide

 

[Pierrot93]

Re : Executer macro dans un autre classeur

Re,

oui si espace dans nom classeur...

 

[Francois73]

Re : Executer macro dans un autre classeur

ça marche mais avec une petite correction sur les guillemets

Application.Run "'classeur B.xls'!NomTaMacro"
merci de ton aide

 

[Francois73]

Re : Executer macro dans un autre classeur

oups pardon j'ai envoyé deux fois le même message désolé