Discussion :

[akramamara7]

Bonsoir ;
j'ai essayé de programmer un Macro dans un fichier excel sert a enregistrer des informations changeables et j'ai rencontrés le problème de l'erreur 1004 !
pouvez vous m'aider ?

Ci dessous le code de Macro
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
Sub enregistrer_1()
'
' enregistrer_1 Macro
'
 
'
    Sheets("Recap").Select
    ActiveCell.Offset(-8, 0).Rows("1:15").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Journale Entretien").Select
    ActiveWindow.SmallScroll Down:=-6
    ActiveCell.Offset(-5, -1).Range("A1:J15").Select
    Selection.Copy
    Sheets("Recap").Select
    ActiveCell.Offset(0, 3).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Cotation ").Select
    ActiveCell.Offset(8, 23).Range("A1:A15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveCell.Offset(0, 10).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Cotation ").Select
    ActiveWindow.SmallScroll Down:=-15
    ActiveCell.Offset(-5, -6).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap").Select
    ActiveCell.Offset(0, -13).Range("A1:A15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Cotation ").Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap").Select
    ActiveCell.Offset(0, 1).Range("A1:A15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Cotation ").Select
    ActiveCell.Offset(-1, -1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Recap").Select
    ActiveCell.Offset(0, 1).Range("A1:A15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
    Selection.NumberFormat = "yyyy"
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveCell.Offset(0, 7).Range("A1:B15").Select
    Selection.NumberFormat = "m/d/yyyy"
    ActiveCell.Offset(0, 2).Range("A1:A15").Select
    Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Sheets("Planification").Select
    ActiveCell.Offset(3, 3).Range("A1").Select
End Sub

[révèr]

Bonjour,

Le mode pas à pas ne t'a pas indiqué sur quelle ligne se situait l'erreur ?