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.
 

bhbh

XLDnaute Barbatruc
Re : probleme d'enregistrement de fichier

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

Code:
Application.DisplayAlerts = False
 

alfazoulou

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas