Discussion :

[DOCcode]

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 :

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

[Menhir]

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.

[DOCcode]

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

[DOCcode]

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 :

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
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?

[Menhir]

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.

[DOCcode]

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

[Marc-L]

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, …