Discussion :

[NEC14]

Bonjour à tous,

Heureux de vous retrouver. Voici mon problème. Dans un classeur Excel, une feuille de calcul nommée BC1. Une fois cette feuille imprimée, je clique sur un bouton pour la fermer.
Mais lorsque je ferme le classeur complet, il m'est demandé si je veux sauvegarder cette feuille, j'ai l'impression qu'elle reste en cache et qu'elle ne se ferme pas qaund je lui demande.
Donc, comment faire pour que ce message n'apparaisse pas et que la feuille soit bien fermée et sauvegardée quand je le demande ?
Voici le code de la feuille :
Merci par avance pour votre aide

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
 
Private Sub Sauv1_Click()
'la feuille est enregistrée dans le répertoire
Cells.Select
    Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show ("S:\AGENTS\BON DE COMMANDE\BC 2013\" & "BC" & " " & Cells(17, 4).Value & " " & Cells(15, 14).Value)
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
        Application.ExecuteExcel4Macro "page.setup(,,0.00,0.00,0.00,false,false,1,1,1,,100,,1,,0.00,0.00,,)"
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
'elle conserve tous ses formats
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
' le contenu est effacé avant sa sauvegarde
    Windows("Factures.xls").Activate
        Sheets("BC1").Select
        Range("B25,G6,H14,N11,N17,N15,N19,B24,A28:A55,N24,I28:I55,J28:J55,K28:K55").Select
        Selection.ClearContents
    Range("A1").Select
        Sheets("BC1").Visible = False
        Sheets("Engagements").Activate
End Sub

[Pierre Fauconnier]

Salut.

Je ne vois pas ce que tu veux dire par "fermer une feuille" car on ne sait pas fermer une feuille. On peut fermer un classeur.

Pourrais-tu préciser ce que tu souhaites réaliser?

[NEC14]

Bonjour Pierre,

Je ne comprends pas pourquoi lorsque je ferme mon classeur, il m'est demandé à chaque fois si je veux sauvegarder BC1, je pensais qu'avec le code ci-dessus, une fois que la feuille est invisible, la sauvegarde était faite. Apparemment ce n'est pas le cas et c'est cette sauvegarde que j'arrive pas à réaliser.
Je souhaite que lorsque je ferme mon classeur ce message n'apparaisse plus.
Merci pour ton aide

[Pierre Fauconnier]

Voici ta macro

Code :

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

1
2
3
4
        Workbooks.Add
        ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show ("S:\AGENTS\BON DE COMMANDE\BC 2013\" & "BC" & " " & Cells(17, 4).Value & " " & Cells(15, 14).Value)
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"

Que fait-elle?

Elle crée un nouveau fichier, lui colle la feuille active puis le sauve sous "BC"...
APRES, elle en modifie la mise en page => modification du classeur. Après, ta macro ne sauve plus le classeur, donc, à la fermeture d'Excel, il y a une demande de sauvegarde...

Ok?

[NEC14]

Bonjour Pierre,

Désolé d'avoir tardé à te répondre. En effet, il faut que j'ajoute cette option de sauvegarde à la fin de toute opération.
Est-ce bien cela ?

Merci pour ton aide