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.
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
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
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
Partager