Discussion :

[NEC14]

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

[QuestVba]

Bonjour,

Et avec

Code :

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

1
2
Sheets(2).Activate
ActiveWorkbook.Close True

[NEC14]

J'ai fait ça, mais ce n'est pas le bon fichier qui se ferme. Le fichier maître doit rester ouvert, seule la feuille copiée, qui est devenue un fichier doit être fermée.

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
 
 
Private Sub CmbSauv_Click()
Cells.Select
    Selection.Copy
        Workbooks.Add
            ActiveSheet.Paste
 
    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"
 
 
        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
 
        Range("A1").Select
            Sheets("BC1").Visible = False
            Sheets("Accueil").Activate
 
        Sheets(2).Activate
        ActiveWorkbook.Close True
 
End Sub

[ctac_]

Bonjour,

Je ne comprends pas bien le but mais

Code :

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

1
2
3
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
ActiveWorkbook.Close True 
Windows("Saisie engagements.xls").Activate

ça devrait le faire.

Cordialement
ctac

[NEC14]

Bonsoir ctac,

Lorsque je clique sur un bouton de sauvegarde, alors le bon de commande que je viens de faire est sauvegardé dans un répertoire, le fichier prend le nom de la société ainsi qu'un numéro :

Code :

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

1
2
 
Application.Dialogs(xlDialogSaveAs).Show ("K:\BONS 2013" & "\" & "BC" & " " & Cells(17, 4).Value & " " & Cells(15, 14).Value)

ensuite, ce fichier doit se fermer, mais pas le fichier principal.

Merci pour ton code, je l'essaie et je te tiens au courant
Bonne soirée
René

[mercatog]

Bonsoir

Au lieu de copier les cellules, on copie la feuille entière qu'on enregistre sous le nom désiré.

En plus, il suffit de formater la feuille à copier comme on le souhaite, cette feuille lors de la copie garde sa mise en page (lourde par vba)

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 CmbSauv_Click()
Dim Fichier As String
 
With ThisWorkbook.Worksheets("BC1")
    Fichier = "K:\BONS 2013\BC" & " " & .Cells(17, 4).Value & " " & .Cells(15, 14).Value
    .Copy
    With ActiveWorkbook
        '.SaveAs Fichier & ".xls"                   'Pour Excel 2003 et moins
        .SaveAs Fichier & ".xlsx"                   'Pour Excel 2007 et plus
        .Close
    End With
    .Range("B25,G6,H14,N11,N15,N19,B24,A28:A55,N24,I28:I55,J28:J55,K28:K55").ClearContents
    .Visible = False
End With
End Sub