Fermé un workbook

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.:oops:

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:

---

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:

---

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

---

Bonjour,

je ne comprend pas pourquoi tu lances la sauvegarde et la fermeture depuis le classeur2, dans son évènement "before_Close" :weird:


si tu veux rester ainsi, il te suffit de supprimer les deux dernières lignes de la procédure.
en effet, Application.Quit signifie que c'est toute l'instance Excel qui est fermée (donc tous les classeurs)
Et sur la ligne précédente, tu neutralises les messages de confirmations


sinon, tu peux complètement effacer cette procédure, et piloter l'enregistrement et fermeture depuis la première procédure, comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub CommandButton5_Click() Dim Classeur As Workbook   Range("c28:h30").Copy   Set Classeur = Workbooks.Open("C:\Users\home\Documents\classeur2.xlsm")   With Classeur .Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste Application.CutCopyMode = False .Close True End With   End Sub

---

je ne sais pas ce que tu veux faire avec la ligne "ActiveSheet.Paste" donc je l'ai laissée

Un grand merci à toi ca marche très bien maintenant.
Je pensais que application quit ne fermais que l instance active.
C'est tellement logique quand ont y regarde à nouveau, mais je crois que mon cerveau n'est pas encore paramétré en mode logique.

Si je vous envoie ma feuille je pense que vous allez rire, j ai 40userform qui envoie le meme code avec 3 lignes d'écart à chaque fois:ptdr: mais bon faut bien commencé par quelque chose.

En tout cas un grand merci et longue vie à toi;)