Bonjour et d'avance merci pour les réponses que vous pourrez m'apporter.

Je ne suis pas un crack en visual basic et mon problème à sans doute déjà été traité dans un post ultérieur mais je ne parviens pas y voir clair.

En résumé:

J'ai un programme qui génère automatiquement un classeur excel nommé "Book1.xlsx".
Je souhaite créer une macro dans un autre classeur ouvert qui reprend des valeurs de chaque feuilles et les recopies dans ce classeur nommé "rap_journ_automatique.xlsm"

J'ai effectué l'enregistrement d'une macro avec des commandes de copier-coller d'un classeur à l'autre, modifier le format et lance automatiquement l'impression.
Jusque là tout allez bien mais lorsque je ferme ce classeur et génère une nouveau classeur portant le même nom"Book1.xlsx" plus rien ne vas et génère le code d'erreur d'exécution '9'.

Je dois sans doute déclarer mes variables mais je ne sais pas comment faire.

Autre question du même type:

Dans ma macro j'aimerai remplacer le nom données aux feuilles dans lesquelles se fait la copie (ex: "150518") par feuille 1, etc. de manière à ce que je puisse exploiter mon code sur tous les nouveaux classeurs générés "Book1.xlsx"

Ci-dessous mon code erroné
encore merci


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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Sub Macro5()
'
' Macro5 Macro
'
 
'
    Windows("Book1.xlsx").Activate
    Sheets("140518").Select
    Range("H3").Select
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("I1").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("J3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("G1").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("B5:L17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=15
    Windows("Book1.xlsx").Activate
    Sheets("150518").Select
    Range("J3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("G34").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("B5:L17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("A41").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L48").Select
    ActiveWindow.SmallScroll Down:=33
    Windows("Book1.xlsx").Activate
    Sheets("160518").Select
    Range("J3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("G66").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("B5:L17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("A73").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=33
    Windows("Book1.xlsx").Activate
    Sheets("170518").Select
    Range("J3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("G98").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("B5:L17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("A105").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Application.CutCopyMode = False
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = True
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveWindow.SmallScroll Down:=24
    Windows("Book1.xlsx").Activate
    Sheets("180518").Select
    Range("J3").Select
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("G130").Select
    ActiveSheet.Paste
    Windows("Book1.xlsx").Activate
    Range("B5:L17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("rap_journ_automatique.xlsm").Activate
    Range("A137").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=24
    Range("I169").Select
    ActiveWindow.SmallScroll Down:=-261
    Range("A1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub