probleme d'enregistrement de fichier

alfazoulou

XLDnaute Occasionnel
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof