hypo78
XLDnaute Impliqué
Bonjour,
J'ai une macro qui va chercher un fichier modèle pour "l'enregistrer sous" en fonction d'une date saisie.
Une fenêtre d'avertissement Excel s'ouvre en disant : "un fichier nommé XXX existe déjà à cet emplacement. Voulez vous le remplacer?"
Si l'utilisateur choisi oui : pas de problème
Si il choisit Non ou Annuler, le classeur modèle reste actif et du coup il peut travailler dessus.
Je souhaiterai que lorsque qu'il choisit Non ou annuler, le classeur modèle se ferme.
Ci après le code qui m'ouvre mon classeur modèle, mais je pense qu'il faut plutôt travailler sur le vba Workbook du classeur modèle non?
Merci d'avance
J'ai une macro qui va chercher un fichier modèle pour "l'enregistrer sous" en fonction d'une date saisie.
Une fenêtre d'avertissement Excel s'ouvre en disant : "un fichier nommé XXX existe déjà à cet emplacement. Voulez vous le remplacer?"
Si l'utilisateur choisi oui : pas de problème
Si il choisit Non ou Annuler, le classeur modèle reste actif et du coup il peut travailler dessus.
Je souhaiterai que lorsque qu'il choisit Non ou annuler, le classeur modèle se ferme.
Ci après le code qui m'ouvre mon classeur modèle, mais je pense qu'il faut plutôt travailler sur le vba Workbook du classeur modèle non?
Code:
Sub Creation_classeur_nommé()
DateDeSaisie = InputBox("Saisir la date de la garde que vous voulez préparer sous la forme jj/mm/aaaa")
If DateDeSaisie = "" Then Exit Sub
On Error Resume Next
Workbooks.Open Filename:="C:\Users\Thierry\Desktop\Versaillesbis\modèle_VRS.xls"
ActiveWorkbook.Sheets("01").Select
Range("AK1") = Format(DateDeSaisie, "mm/dd/yyyy")
If Dir(ActiveWorkbook.Path & "\" & Format(DateDeSaisie, "yyyy"), vbDirectory) = "" Then MkDir ActiveWorkbook.Path & "\" & Format(DateDeSaisie, "yyyy")
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & Format(DateDeSaisie, "yyyy") & "\" & Format(DateDeSaisie, "mmmmyyyy") & "\" & Format(DateDeSaisie, "ddmmmmyyyy") & ".xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
Merci d'avance
Dernière édition: