Fermer un classeur

[Cestmoi007]

Bonsoir,

J'ai 2 classeurs A et B dans B j'ai une macro qui va chercher des données dans le classeur A.
Cela fonctionne bien mais les 2 classeurs restent ouverts. Or je voudrais bien que le classeur A se ferme dès que les données ont été copiées dans le B.
Voici le code:
Sub Macro2()
ChDir "H:\criterium 2017"
Workbooks.Open Filename:="H:\criterium 2017\Criterium-phase 2.xlsm" (Classeur A)
Sheets("Points").Select
Range("A2:C60").Select
Application.WindowState = xlNormal
Application.WindowState = xlMaximized
Selection.Copy
Application.WindowState = xlMinimized
Application.WindowState = xlMinimized
Windows("Class general ete.xlsm").Activate
Range("Q4").Select
ActiveSheet.Paste
Application.VBE.MainWindow.Visible = False
End Sub
(Ceci est la macro dans le classeur B)
Et là je coince!

 

[Jacky67]

Bonsoir,
Ceci devrait être suffisant
La macro est lancée du fichier destination depuis la feuille de destination

Sub Macro2()
Workbooks.Open Filename:="H:\criterium 2017\Criterium-phase 2.xlsm" ' (Classeur A)
Sheets("Points").Range("A2:C60").Copy ThisWorkbook.ActiveSheet.Range("Q4")
ActiveWorkbook.Close False
End Sub

 

[Cestmoi007]

Merci beaucoup plus simple et clair que ce que j'ai fait!!