simplifier un code

Version imprimable

simplifier un code

bonsoir a tous

j ai un code que j ai créé par l enregistreur macro qui me permet de copier des feuilles d un classeur Excel A vers un classeur B
de transmettre le classeur B par mail puis d 'effacer les données du classeur A
Bien qu il fonctionne ce code me parait "lourd" et long
y a t il un code plus "simple" svp ?
d autre part, le classeur B est destiné à être transmis à des collaborateurs et je souhaiterais que le code ne copie que les feuilles mais sans les macros

merci d'avance pour votre aide
ci dessous less codes pour la copie et la transmission mail et le code pour effacer les données du classeur A

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub CommandButton3_Click()
'copie les feuilles dans un nouveau classeur avant envoi
 
   Sheets(Array("Etat_des_sorties", "Etat_des_entrées", "Etat_du_Stock")).Select
    Sheets("Etat_des_entrées").Activate
    Sheets(Array("Etat_des_sorties", "Etat_des_entrées", "Etat_du_Stock")).Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWorkbook.Close
 
Call MAJ
End Sub
 
 
Sub MAJ()
'
' MAJ Macro
'
 
'
    Sheets("Etat_du_Stock").Select
    Range("H2:H365").Select
    Selection.Copy
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Etat_des_sorties").Select
    Range("A2:C60").Select
    ActiveWindow.SmallScroll Down:=-63
    Range("A2:C60,F2:F61").Select
    Range("F2").Activate
    ActiveWindow.SmallScroll Down:=-45
    Range("A2:C60,F2:F61,H2:H61").Select
    Range("H2").Activate
    Selection.ClearContents
    Range("D12").Select
    Sheets("Etat_des_entrées").Select
    Range("A2:C60").Select
    ActiveWindow.SmallScroll Down:=-36
    Range("A2:C60,F2:F60").Select
    Range("F2").Activate
    Selection.ClearContents
    Range("D19").Select
    Sheets("Etat_du_Stock").Select
    Range("L2:L355").Select
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-9
    Range("E2").Select
    ActiveSheet.Paste
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B3:G3").Select
    Sheets("Etat_du_Stock").Select
    Sheets("Gestion_du_Stock").Select
 
    MsgBox (" Sauvegarde et transfert des dossiers réussis !"), vbExclamation & vbOK
 
End Sub

08/08/2015, 18h43
patricktoulon

heu

bonjour
perso je vois pas cmment faire plus simple
alors oui selon ton app mail par defaut ca peut etre lourd mais c'est independant de vba

Code simplifié

Bonjour,

Pour simplifier le code, il faut supprimer les instruction inutiles, en particulier les 'select' :
Code:

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 Private Sub CommandButton3_Click() 'copie les feuilles dans un nouveau classeur avant envoi Sheets(Array("Etat_des_sorties", "Etat_des_entrées", "Etat_du_Stock")).Copy Application.Dialogs(xlDialogSendMail).Show ActiveWorkbook.Close Call MAJ End Sub Sub MAJ() With Sheets("Etat_du_Stock") .Range("L2:L365").Value = .Range("H2:H365").Value End With Sheets("Etat_des_sorties").Range("A2:C60,F2:F61,H2:H61").ClearContents Sheets("Etat_des_entrées").Range("A2:C60,F2:F60").ClearContents With Sheets("Etat_du_Stock") .Range("L2:L355").Cut Destination:=.Range("E2:E355") With .Range("E2:E355") .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom End With End With MsgBox (" Sauvegarde et transfert des dossiers réussis !"), vbExclamation & vbOK End Sub
Si cette macro est placée dans un module normal (et pas dans le module d'une des feuilles copiées) elle n'est pas copiée dans le classeur à envoyer.

Il me semble qu'il y a des incohérences dans les plages de cellules que tu copies, déplaces ou effaces mais toi seul peut les vérifier.

Cordialement
Patrice

09/08/2015, 10h04
Tournament

Bonjour

merci Patrice et Patrick pour vos réponses et vos bons conseils
Je vais ainsi modifier la structure de mon dossier et déplacer les codes présentes dans les feuilles dans des modules dédiés
ceci dit si d'autres solutions existes je suis preneur

encore merci pour vos bons conseils
bon dimanche à vous

bien cordialement