Discussion :

[bouh ça chauffe]

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

[joe.levrai]

Bonjour,

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


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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bouh ça chauffe]

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 mais bon faut bien commencé par quelque chose.

En tout cas un grand merci et longue vie à toi