Bonjour à vous

Tout d'abord un grand merci à vous tous de partagez vos savoir içi.
Débutant donc faudra y aller doucement mais j absolument besoin de conseil.
Après de nombreuse recherche, j'ai créer une macro qui me copie mes données vers un autre "classeur2" fermé.
Jusque la, pas de problème..bon j vais pas vous caché que j'ai fait chauffé mes vieux neurones pour ça.

Mais à la fin de cette macro, j aimerais que le "classeur2" ou j ai fait le collage ce referme.
Quoi que je tape à la fin ce sont les 2 appli qui ce ferme.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton5_Click()
 
Dim Classeur As Workbook
Set Classeur = ActiveWorkbook
Range("c28:h30").Select
Selection.Copy
 
Workbooks.Open "C:\Users\home\Documents\classeur2.xlsm"
Workbooks("classeur2.xlsm").Activate
Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
         ActiveSheet.Paste
Application.CutCopyMode = False
 
End sub
Sur mon classeur2 j'ai ajouté ça dans thisworkbook, la macro ci dessous pour fermé sans la boite de dialogue

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each w In Application.Workbooks
w.Save
Next w
Application.DisplayAlerts = False
Application.Quit
End Sub