Bonjour,

J'ai modifié mon code pour qu'il soit plus aéré. Par contre, je n'arrive pas à fermer automatiquement le fichier de sauvegarde ainsi créé.
Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance

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
 
Private Sub CmbSauv_Click()
Cells.Select
    Selection.Copy
        Workbooks.Add
            ActiveSheet.Paste
 'le fichier est créé avec le nom du site   
    Application.Dialogs(xlDialogSaveAs).Show ("K:\BONS 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"
 
   'les données dans BC1 sont effacées         
        Windows("Saisie engagements.xls").Activate
            Sheets("BC1").Select
            Range("B25,G6,H14,N11,N15,N19,B24,A28:A55,N24,I28:I55,J28:J55,K28:K55").Select
            Selection.ClearContents
     'la feuille BC1 est fermée et la feuille Accueil activée       
        Range("A1").Select
            Sheets("BC1").Visible = False
            Sheets("Accueil").Activate
 
End Sub