Discussion :

[NEC14]

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

[zandru]

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

[NEC14]

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

[casefayere]

Bonjour,
sans avoir trop regardé, apparemment

Code :

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

Range("a28").Activate

est mal placé, voire inutile

[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.

[NEC14]

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