probleme d'enregistrement de fichier

[alfazoulou]

Bonjour le forum.
j'ai un code qui me permet de copier les feuilles de mon classeur A actif en créant un nouveau classeur N enregistré sous le nom figurant dans une cellule
du classeur A aprés avoir vérifier l'existence d'un répertoire dont le nom se trouve aussi dans une cellule du classeur A.

Sub Macro11()

Dim sDir As String
Dim Chemin As String
Dim Chr As String
Chr = [date_archive]
sDir = "C:\comptes perso\" & [date_archive_an] & "\"
Dim année As String
année = [date_archive_an]
Dim mois As String
mois = [date_archive]
Application.ScreenUpdating = False
Sheets(Array("compte perso", "stats compte perso", "synthèse mens compte perso")).Copy
Sheets("compte perso").name = "tableau de saisie"
Sheets("stats compte perso").name = "Statistiques"
Sheets("synthèse mens compte perso").name = "Synthese mensuelle"



If Len(Dir(sDir, vbDirectory)) = 0 Then
MkDir sDir
MsgBox "Le répertoire " & sDir & " a été créé !"

End If


ChDir "C:\comptes perso\" & année & ""
ActiveWorkbook.SaveAs Filename:=(Chr)
ActiveWorkbook.Close


End Sub


je voudrais savoir comment éviter le message " le fichier existe déjà à cet emplacement. Voulez vous le remplacer ? "
ou surtout le message d'erreur d'exécution 1004 survenant lorsqu'on répond par "non" ou "annuler"
Merci à tous.

 

[Cousinhub]

Re : probleme d'enregistrement de fichier

Bonjour, peut-être en rajoutant cette ligne de code :

Application.DisplayAlerts = False

 

[alfazoulou]

Re : probleme d'enregistrement de fichier

merci bhbh
mais si je veux etre prévenu de l'existence du fichier par l'intermédiaire d'un msgbox par exemple.
je sèche un peu.