Bonjour,

Le code suivant est censé enregistrer la feuille BC1 dans le répertoire désigné, puis ensuite effacer les données sélectionnées se trouvant dans BC1 avant la fermeture, mais cela ne fonctionne pas.
Pouvez-vous m'aider s'il vous plait ?

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
Private Sub CommandButton3_Click()
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.Dialogs(xlDialogSaveAs).Show ("S:\FORMULAIRES\BON DE COMMANDE\BC 2008")
    ActiveSheet.PageSetup.PrintArea = "$a$1:$N$72"
    Application.ExecuteExcel4Macro "page.setup(,,0.00,0.00,0.00,0.00,false,false,1,1,1,,100,,,1,,0.00,0.00,,)"
Windows("Factures.xls").Activate
Sheets("BC1").Select
Range("b25,G6,H14,N11,N15,N17,N19,B24,A8:K55,N28:N55,N24").Select
Range("a28").Activate
Selection.ClearContents
Range("A28").Select
Sheets("BC1").Visible = False
Sheets("Engagements").Activate
End Sub