Aide pour un code VBA Excel

Version imprimable

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:

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

02/07/2008, 14h45
zandru

qu'est ce qui ne marche pas exactement, l'enregistrement ou l'effacement ?
03/07/2008, 08h10
NEC14

Citation:

Envoyé par zandru

qu'est ce qui ne marche pas exactement, l'enregistrement ou l'effacement ?

Bonjour,

Désolé de répondre si tardivement. C'est vrai j'aurai du préciser que c'est l'effacement qui ne fonctionne pas.
Merci
03/07/2008, 08h19
casefayere

Bonjour,
sans avoir trop regardé, apparemment

Code:

Range("a28").Activate

est mal placé, voire inutile
03/07/2008, 09h44
zandru

je suis d'accord avec casefayere, en écrivant Range("a28").Activate avant Selection.ClearContents, ta sélection me semble compromise;
je ne sais pas si elle reste active.
03/07/2008, 10h09
NEC14

Citation:

Envoyé par zandru

je suis d'accord avec casefayere, en écrivant Range("a28").Activate avant Selection.ClearContents, ta sélection me semble compromise;
je ne sais pas si elle reste active.

C'était ça le problème. J'ai supprimer cette ligne et ça fonctionne.
Merci beaucoup
Cordialement