Discussion :

[bambambigolo22]

Bonjour à Tous

J'ai mon code qui marche enfin complètement, mais il reste un petit problème, en effet, dans ce code je dois enregistrer un nouveau (classeur) fichier en en écrasant un autre, mais évidement, Excel me pose un message d'erreur du genre "ce fichier existe déjà, voulez vous le remplacer? Oui, non, annuler".
J'aimerai que le remplacement se fasse automatiquement sans que le message ne s'affiche.

Voici le code de mon bouton valider :

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
 
 
Private Sub CommandButton1_Click()
Dim i As Byte
With ThisWorkbook
Sheets(Array("ENFANTSPré Catéchumenat", "ENFANTS1ère  Année", "ENFANTS2ème  Année", "ENFANTS3ème  Année", "ENFANTS4ème  Année", "ENFANTS5ème  Année", "JEUNES1ère  Année", "JEUNES2ème  Année", "JEUNES3ème  Année", "JEUNES4ème  Année", "JEUNES5ème  Année", "ADULTES1ère  Année", "ADULTES2ème  Année", "ADULTES3ème  Année", "ADULTES4ème  Année", "BD_CENTRALISEE", "BASE")).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "ARCHIVE_ANNEE PASTORALE" & "_" & Format(Year(Now()) - 1, "0000") & "-" & Format(Year(Now()) - 0, "0000")
ActiveWorkbook.Close
ActiveWorkbook.Saved = True
End With
Windows("KT_BD.xlsm").Activate
Sheets("ENFANTSPré Catéchumenat").Range("A2:E300").ClearContents
Sheets("ENFANTS1ère  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS3ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS4ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS5ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES1ère  Année").Range("A2:E300").ClearContents
Sheets("JEUNES2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES3ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES4ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES5ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES1ère  Année").Range("A2:E300").ClearContents
Sheets("ADULTES2ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES3ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES4ème  Année").Range("A2:E300").ClearContents
Sheets("BD_CENTRALISEE").Range("A2:M2000").ClearContents
Sheets("BASE").Range("C2:H16").ClearContents
Sheets("UTILISATEURS").Range("A2:B100").ClearContents
Sheets("CARTE DE PRESENCE").Select
Sheets("CARTE DE PRESENCE").Range("L10").Value = ComboBox1.Value
MsgBox "Archivage effectué avec succès"
Unload UserForm10
End Sub

Merci d'avance

[patricktoulon]

re
bonjour
avant la ligne de code qui enregistre

Code :

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

 application.displaysalerts=false

[bambambigolo22]

Bonjour,

Ca ne marche pas. j'ai un message d'erreur

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
Private Sub CommandButton1_Click()
Dim i As Byte
With ThisWorkbook
Sheets(Array("ENFANTSPré Catéchumenat", "ENFANTS1ère  Année", "ENFANTS2ème  Année", "ENFANTS3ème  Année", "ENFANTS4ème  Année", "ENFANTS5ème  Année", "JEUNES1ère  Année", "JEUNES2ème  Année", "JEUNES3ème  Année", "JEUNES4ème  Année", "JEUNES5ème  Année", "ADULTES1ère  Année", "ADULTES2ème  Année", "ADULTES3ème  Année", "ADULTES4ème  Année", "BD_CENTRALISEE", "BASE")).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "ARCHIVE_ANNEE PASTORALE" & "_" & Format(Year(Now()) - 1, "0000") & "-" & Format(Year(Now()) - 0, "0000")
ActiveWorkbook.Close
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
End With
Windows("KT_BD.xlsm").Activate
Sheets("ENFANTSPré Catéchumenat").Range("A2:E300").ClearContents
Sheets("ENFANTS1ère  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS3ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS4ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS5ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES1ère  Année").Range("A2:E300").ClearContents
Sheets("JEUNES2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES3ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES4ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES5ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES1ère  Année").Range("A2:E300").ClearContents
Sheets("ADULTES2ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES3ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES4ème  Année").Range("A2:E300").ClearContents
Sheets("BD_CENTRALISEE").Range("A2:M2000").ClearContents
Sheets("BASE").Range("C2:H16").ClearContents
Sheets("UTILISATEURS").Range("A2:B100").ClearContents
Sheets("CARTE DE PRESENCE").Select
Sheets("CARTE DE PRESENCE").Range("L10").Value = ComboBox1.Value
MsgBox "Archivage effectué avec succès"
Unload UserForm10
End Sub

[patricktoulon]

re
peut etre alors supprimer le fichier si il existe deja avant le saveAs

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Byte, chemin$
With ThisWorkbook
Sheets(Array("ENFANTSPré Catéchumenat", "ENFANTS1ère  Année", "ENFANTS2ème  Année", "ENFANTS3ème  Année", "ENFANTS4ème  Année", "ENFANTS5ème  Année", "JEUNES1ère  Année", "JEUNES2ème  Année", "JEUNES3ème  Année", "JEUNES4ème  Année", "JEUNES5ème  Année", "ADULTES1ère  Année", "ADULTES2ème  Année", "ADULTES3ème  Année", "ADULTES4ème  Année", "BD_CENTRALISEE", "BASE")).Copy
chemin = ThisWorkbook.Path & "\" & "ARCHIVE_ANNEE PASTORALE" & "_" & Format(Year(Now()) - 1, "0000") & "-" & Format(Year(Now()) - 0, "0000")
If Dir(chemin) <> "" Then Kill (chemin)
doevents
ActiveWorkbook.SaveAs chemin
'...
'....

[bambambigolo22]

Bonsoir,

j'ai testé votre code, mais j'ai toujours le même message .

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
 
 
Private Sub CommandButton1_Click()
Dim i As Byte, chemin$
With ThisWorkbook
Sheets(Array("ENFANTSPré Catéchumenat", "ENFANTS1ère  Année", "ENFANTS2ème  Année", "ENFANTS3ème  Année", "ENFANTS4ème  Année", "ENFANTS5ème  Année", "JEUNES1ère  Année", "JEUNES2ème  Année", "JEUNES3ème  Année", "JEUNES4ème  Année", "JEUNES5ème  Année", "ADULTES1ère  Année", "ADULTES2ème  Année", "ADULTES3ème  Année", "ADULTES4ème  Année", "BD_CENTRALISEE", "BASE")).Copy
chemin = ThisWorkbook.Path & "\" & "ARCHIVE_ANNEE PASTORALE" & "_" & Format(Year(Now()) - 1, "0000") & "-" & Format(Year(Now()) - 0, "0000")
If Dir(chemin) <> "" Then Kill (chemin)
DoEvents
ActiveWorkbook.SaveAs chemin
ActiveWorkbook.Close
End With
Windows("KT_BD.xlsm").Activate
Sheets("ENFANTSPré Catéchumenat").Range("A2:E300").ClearContents
Sheets("ENFANTS1ère  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS3ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS4ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS5ème  Année").Range("A2:E300").ClearContents
Sheets("ENFANTS2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES1ère  Année").Range("A2:E300").ClearContents
Sheets("JEUNES2ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES3ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES4ème  Année").Range("A2:E300").ClearContents
Sheets("JEUNES5ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES1ère  Année").Range("A2:E300").ClearContents
Sheets("ADULTES2ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES3ème  Année").Range("A2:E300").ClearContents
Sheets("ADULTES4ème  Année").Range("A2:E300").ClearContents
Sheets("BD_CENTRALISEE").Range("A2:M2000").ClearContents
Sheets("BASE").Range("C2:H16").ClearContents
Sheets("UTILISATEURS").Range("A2:B100").ClearContents
Sheets("CARTE DE PRESENCE").Select
Sheets("CARTE DE PRESENCE").Range("L10").Value = ComboBox1.Value
MsgBox "Archivage effectué avec succès"
Unload UserForm10
End Sub