Dans celui-la aussi si possible
Private Sub CommandButton2_Click()
ChDir "C:\Program Files\Territoire 2004\Territoires"
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\Vide.xls"
ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Save
MsgBox "Votre territoire sera créer dans le répertoire: C:\Program Files\Territoire 2004\Territoires\"
YesNo = MsgBox("Voulez-vous éditer le nouveau ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
TextBox1 = ""
MsgBox "Passer maintenant en mode Excel"
Application.Visible = True
UserForm1.Hide
UserForm3.Hide
Case vbNo
'Insert your code here if No is clicked
TextBox1 = ""
MsgBox "*Créer maintenant un autre*"
ActiveWorkbook.Close
End Select
End Sub
Merci de votre aide