Discussion :

[zertupo]

Bonjour à tous

je fais un programme là qui ouvre constamment des classeurs excels pour en récupérer certaines donnée. Mon soucis c'est que je dois modifier les classeurs que j'ouvre (modifier les points en virgules) pour exploiter les données nécessaires, et du coup quand ils se ferment ils me demandent si je veux sauvegarder. ça ouvre 13 classeurs, j'aimerai pouvoir faire autre chose en même temps. J'ai essayé beaucoup de codes différents mais rien ne fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
ActiveWorkbook.Saved = False
    ActiveWorkbook.Close
 
 
    ActiveWorkbook.Close SaveChanges:=False
 
 
application.displayalert=false
activeworkbook.close

Si vous pouviez m'indiquer une manière s'il vous plait de fermer automatiquement sans demander de sauvegarder ça m'arrangerez beaucoup. Je ne souhaite pas sauvegarder les modifications chaque fois.

J'aimerai aussi savoir une autre astuce, s'il était possible d'empêcher l'affichage des nouveaux classeurs qui s'ouvre, car ça fait mal aux yeux si on reste devant, et il y a un sérieux risque de crise d'épilepsie ^^. Je vous explique mon programme vite fait, j'ouvre un classeur excel, je selectionne une plage nécessaire, je la copie, ensuite j'active mon classeur de base, je colle les données et je recommence avec une autre plage, puis je ferme mon classeur et j'en ouvre un autre et ainsi de suite, donc vous pouvez facilement imaginer l'écran bouger dans tous les sens ^^. Je vous copie une partie du code pour que vous voyez et peut être quelqu'un va me dire que je peux faire plus simple ^^ :

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
ActiveSheet.Range("A1:BB200").Select
    Selection.Replace what:=".", replacement:=",", lookat:=xlPart, searchorder:= _
    xlByRows, MatchCase:=False, searchformat:=False, ReplaceFormat:=False
 
    j = 0
    While Range("A2").Offset(j, 0) <> ""
 
        If Range("B2").Offset(j, 0) = "VMOB" Or Range("B2").Offset(j, 0) = "FUTU" Or Range("B2").Offset(j, 0) = "TRES" Then
 
            ActiveSheet.Range("A2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("P3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("C2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("K3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("N2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("M3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("O2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("R3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("U2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("N3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("AR2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("O3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            ActiveSheet.Range("G2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("S3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False
 
                Range("Q3").Offset(i, 0) = PTF
 
        Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
 
            If Range("AU2").Offset(j, 0) <> "" Then
 
                ActiveSheet.Range("AU2").Offset(j, 0).Copy
                    Windows("VL.xlsm").Activate
                    Sheets("actif").Activate
                     Sheets("actif").Range("L3").Offset(m, 0).Select
                     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                                SkipBlanks:=False, Transpose:=False
                    Application.CutCopyMode = False
            Else
 
                ActiveSheet.Range("G2").Offset(j, 0).Copy
                    Windows("VL.xlsm").Activate
                    Sheets("actif").Activate
                     Sheets("actif").Range("L3").Offset(m, 0).Select
                     Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                                SkipBlanks:=False, Transpose:=False
                    Application.CutCopyMode = False
            End If
        m = m + 1
        End If
 
    Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
    j = j + 1
    Wend
    Windows("JOUROP_" & Format(Now() - JOUR_TEST, "yyyymmdd") & "_" & ID & "_" & PTF & ".xls").Activate
    ActiveWorkbook.Saved = False
    ActiveWorkbook.Close  
End If

En tout cas le plus urgent c'est la non demande de sauvegarde à la fermeture automatique des fichiers


Merci beaucoup pour vos aides .

[joe.levrai]

Bonjour,

pour fermer un classeur sans l'enregistrer, ou pour l'enregistrer dans la foulée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
set Wb = Workbooks("Classeur1")
 
' ferme sans enregistrer
Wb.Close False
 
' ferme en enregistrant
Wb.Close True
 
set Wb = Nothing

pour désactiver le stromboscope des ouvertures et fermetures :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub UneMacro()
 
Application.ScreenUpdating = False
 
' ton code
 
Application.ScreenUpdating = True
 
End Sub

En outre, ton code mérite un peu de ménage, il est inutile de sélectionner tes plages pour y faire des opérations
par exemple, la ligne suivante :

Code :

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

1
2
3
4
5
6
7
8
 
ActiveSheet.Range("A2").Offset(j, 0).Copy
                Windows("VL.xlsm").Activate
                Sheets("actif").Activate
                 Sheets("actif").Range("P3").Offset(m, 0).Select
                 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
                            SkipBlanks:=False, Transpose:=False
                Application.CutCopyMode = False

peut se réduire en une seule ligne de code :

Code :

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

1
2
 
Workbooks("Nom du classeur").Worksheets("Nom de la feuille").Range("A2").Offset(j, 0).Value.Copy Workbooks("VL.xlsm").Worksheets("actif").Range("P3").Offset(m, 0)

et en utilisant des variables Classeur, Feuille, Plage, tu obtiens un code simple, lisible et qui ne jongle pas entre les classeurs en terme d'affichage

[zertupo]

C'est bon updatescreening fonctionne bien ainsi que la fermeture sans sauvegarder sans initialisé un wb. Par contre le fait de copier directement sans activer les fenêtres ne fonctionne pas mais ça c'est pas grave...Merci beaucoup en tout cas c'est plus agréable comme ça.