Discussion :

[Rico2a]

Bonjour à tous,

J'ai créé une macro qui dans un classeur A:

Ouvre un nouveau classeur B
Retourne sur A pour y copier des données
Va sur B pour y coller les données
Fait des tri ...
Ouvre une boîte de dialogue pour l'enregistrement de B
Puis retourne sur A.

Voici le code :

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
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
Sub Export_Modif()
'
' Export_Modif Macro
'
 
'
    Sheets("Modif").Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
 
    Windows("Spendvision V3.xlsm").Activate
    Sheets("New employee").Select
    Range("A2:AB5000").Select
    Selection.Copy
    Windows("Classeur1").Activate
    Range("A5001").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Application.CutCopyMode = False
    ActiveWindow.DisplayZeros = False
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A5000" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:AE11000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A2").Select
    ' Boite de dialogue Enregistrer sous
    Application.Dialogs(xlDialogSaveAs).Show
     Windows("Spendvision V3.xlsm").Activate
     Sheets("Spendvision").Select
    Range("A2").Select
    Sheets("Managers").Select
    Range("A2").Select
    Sheets("Emails").Select
    Range("A2").Select
    Sheets("Mouvements").Select
    Range("A2").Select
    Sheets("Results").Select
    Range("A18").Select
    Sheets("Modif").Select
    Range("A2").Select
    Sheets("New employee").Select
    Range("A2").Select
    Sheets("Mode opératoire").Select
    Range("A4").Select
 
End Sub

Tout marche bien sauf que lorsque je répète cette macro une seconde fois ça bug du fait que classeur A lors de sa création s'appelle classeur 1 la 1ère fois mais si on recommence cela devient classeur 2 puis 3 ...

Comment contourner ce problème ?

PS Je débute en VBA

Merci de votre aide

[Invité]

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Export_Modif()
Dim Wb As Workbook
Dim WbNew As Workbook
Set Wb = ActiveWorkbook
 
 
Set WbNew = Workbooks.Add
Wb.Sheets("Modif").Cells.Copy
WbNew.Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
 
Wb.Sheets("New employee").Range("A2:AB5000").Copy
WbNew.Sheets(1).Range("A5001").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WbNew.Activate
Application.CutCopyMode = False
ActiveWindow.DisplayZeros = False
WbNew.Worksheets("Feuil1").Sort.SortFields.Clear
WbNew.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A5000" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With WbNew.Worksheets("Feuil1").Sort
.SetRange Range("A1:AE11000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
WbNew.Worksheets("Feuil1").Range("A2").Select
' Boite de dialogue Enregistrer sous
 
Application.Dialogs(xlDialogSaveAs).Show
WbNew.Close False
Wb.Activate
For i = 1 To Wb.Sheets.Count
     Wb.Sheets(i).Select
     Wb.Sheets(i).Range("a1").Select
Next
Wb.Sheets(1).Select
 
 
End Sub

[defluc]

Bonjour,

J'ai un certain nombre de remarques qui t'éviteront bien des problèmes.
- 1. comme rabâché sur ce forum, évites les "Select"
- 2. plus tôt que de faire référence nommément au classeur de départ, utilises "ActiveWorkbook" ou "ThisWorkbook" et fait un "Set" sur on objet Workbook.

Modifies ton code en conséquence et reviens soit pour mettre le sujet en résolu, soit pour reposer une question sur ce qui poserait encore problème.

P.S. : Veilles à mettre ton code entre les balises "code" pour qu'il soit indenté.

Bon travail

[Marc-L]

Bonjour, bonjour,

les balises de code ne font pas l'indentation car c'est un style d'écriture …

Mais elles sont utiles pour désigner une ligne de code par son numéro; et sans, je ne réponds pas !

pour les autres remarques, un bon code est sans Select (sauf exception) …

[Rico2a]

Merci de votre rapidité à répondre, tout marche bien maintenant.
Merci pour vos conseils et particulièrement à Robert pour son code.
Pour ce qui est des "Select" c'est ce qui est proposé par VBA lorsqu'on procède par enregistrement comme le néophite que je suis, mais je travaille à m'améliorer et j'apprends beaucoup grâce à vous tous.

[Invité]

L’enregistreur de macro est un bon didacticiel mais effectivement mérite d'être optimisé au niveau du rendu définitif.

lorsqu’un .select est suivi d'une selection. Tu peux fusionner les deux.

Code :

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

1
2
3
4
Range("A1").select
selection.copy
 
Range("A1").copy 'je fusionne les deux instuction en une.

L’enregistreur note tes actions sans imaginer ce que tu vas en faire.