Aide débutant VBA Sauvegarde et YES NO pour application.quit

Bonjour,

Je fais de "l'auto-formation" sur VBA pour travailler sur excel.
J'ai jusqu'à présent réussi à atteindre mes objectifs pour ce fichier.
J'utilise une version 2013.

J'ai commencé un code, la première partie fonctionne, la deuxième non
donc je l'ai passé en commentaire
J'aimerais après la nouvelle feuille avec les valeurs, enregistré le fichier puis proposer à l'utilisateur de quitter.

En effet tous les jours, non calculons des données feuil1 et feuil2 puis nous enregistrons les valeurs sur une nouvelle page, datée du jour.

Code:

---

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

Sub Bout_Save_New_Feui() Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(Date, "dd mmm yyyy") Worksheets("Feuil2").Range("B9:I17").Copy ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteFormats   'ActiveWorkbook.Save SaveChanges:=True 'Dim retoursave As Long 'retoursave = MsgBox("Feuille sauvegardée, souhaitez-vous quitter le programme ?", 4) 'If retoursave = vbYes Then 'Application.Quit 'Else 'MsgBox ("Feuille bien sauvegardée") 'End If   End Sub

---

Merci pour l'aide

Application.Quit est une commande très dangereuse dont je déconseille l'utilisation.

Pour ton application, il serait moins dangereux de fermer le(s) fichier(s) traités que l'application elle-même sans savoir si elle à ouvert d'autres fichiers.

Peux tu m'indiquer la commande ?
Que penses tu du Save ?
Je crois que j'ai un problème de hiérarchisation sur l'ensemble du code..

Merci

J'ai changé l'ordre du code
Pourquoi le application.quit est dangereux ?
Je veux bien fermer excel et non pas juste le fichier.

Code:

---

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

Dim retoursave As Long retoursave = MsgBox("le Fichier va être sauvegardé, souhaitez-vous quitter le programme par la suite?", 4) If retoursave = vbYes Then Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(Date, "dd mmm yyyy") Worksheets("Feuil2").Range("B9:I17").Copy ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.Save Application.Quit Else Sheets.Add After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(Date, "dd mmm yyyy") Worksheets("Feuil2").Range("B9:I17").Copy ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteValues ActiveSheet.Range("B9:I17").PasteSpecial Paste:=xlPasteFormats ActiveWorkbook.Save Sheets("Feuil1").Select

---

Avec ce code je copie-colle mes données/je sauvegarde si l'utilisateur répond Oui ou si il répond non
si il répond oui je quitte si non je reviens à la page d’accueil

des avis?

Citation:

---

Envoyé par DOCcode

Pourquoi le application.quit est dangereux ?

---

Parce que si ton utilisateur a déjà un autre fichier ouvert et qu'il se trompe de bouton, il peut perdre des heures de travail.

Surtout que le message de ton MsgBox, est ambigüe : on a l'impression que tu proposes juste de quitter ton programme. Tu n'indiques pas explicitement que c'est Excel qui va être fermé.
Perso, jamais je n'accepterais qu'un tel code soit placé sur mon poste.

Quand on développe une macro, il ne faut pas seulement se concentrer sur ce qu'on veut que cette macro fasse en croyant qu'elle est au centre de tout.
Il faut savoir prendre du recul et prendre en compte tout l'environnement.
Par exemple qu'elle est dans Excel et que Excel peut être utilisé pour d'autres tâches.

D'accord je comprends mieux ce que tu veux dire désormais

Citation:

---

Envoyé par DOCcode

Pourquoi le application.quit est dangereux ?

---

Bonjour,

il ne le serait pas si au moins il était conditionné sur le nombre de classeurs ouverts, à savoir un seul …

___________________________________________________________________________________________________________
Je suis Paris, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …