bruno37

Envoyé par bruno37

Bonjour
J'ai récupéré une procédure sur votre site et je l'ai adapté pour pouvoir copier une feuille de mon classeur et la coller sans les liens qui sont dans mon classeur d'origine (.xlsm) vers le nouveau que j'aurais enregistré sous avec un nom défini. Quand je utilise la procédure en mode Pas à Pas cela fonctionne. mais dès que je lance la macro en automatique il m'est demandé si je veux enregistrer mon fichier d'origine en (.xlsx).
Mon nouveau fichier est comme ci il n'était plus actif.

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
Sub File_editabile()
'###################################################################
Dim WB_Principal As String, cl As Workbook
Dim WB_second As String, file_Path, file_Path2
  
WB_Principal = ActiveWorkbook.Name
WB_second = Split(WB_Principal, ".")(0) & "_Customer"

Workbooks.Add
Set cl = ActiveWorkbook
Dim objSaveBox As FileDialog
 
    'Défind the window "Save as"
    Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)
    With objSaveBox
        .InitialFileName = WB_second
        .FilterIndex = 1 'type 1 = xlsx
        .Show
        .Execute
    End With
'###################################################################

' Operazioni di Copia - Incolla

    Windows(WB_Principal).Activate
    Columns("A:G").Select
    Selection.Copy

    Windows(WB_second).Activate
    Columns("A:G").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows(WB_Principal).Activate
    Sheets("OFFERTA").Select
    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy

    Windows(WB_second).Activate
    Range("H1").Select
    ActiveSheet.Paste

    Windows(WB_Principal).Activate
    Columns("I:J").Select
    Application.CutCopyMode = False
    Selection.Copy

    Windows(WB_second).Activate
    Range("I1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows(WB_Principal).Activate
    Columns("K:M").Select
    Application.CutCopyMode = False
    Selection.Copy

    Windows(WB_second).Activate
    Range("K1").Select
    ActiveSheet.Paste

    Windows(WB_Principal).Activate
    Columns("N:N").Select
    Application.CutCopyMode = False
    Selection.Copy

    Windows(WB_second).Activate
    Range("N1").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N21").Select

Application.Calculation = xlAutomatic
Application.ScreenUpdating = True

Windows(WB_second).Activate
ActiveWorkbook.Save

End Sub

Auriez vous une idée de pourquoi en mode Pas à Pas cela fonctionne mais pas en mode automatique?