Erreur sur bouton annulé

[Temjeh]

Bonjour le forum

Avec votre aide je me suis fait un ptit prog pour ma comptabilité(Merci)
J'ai juste un bug avec mon inputBox du début
Si j'entre rien et presse Ok = MsgBox "Entrer un nom"...là ca va

Mais si je fait annuler sur inputBox.....voici mon bug il me sauvegarde quand même un fichier et le nomme "Faux".J'aimerais si possible que si je fait annulé il ferme seulement "inputBox"

Voici le Demon:

Private Sub CommandButton3_Click()
Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="*Entrez le No de la nouvelle facture*")

If Nom_Fichier = "" Then
MsgBox "Entrer un nom"
GoTo Debut

Else
Sheets("Model").Select
Sheets("Model").Copy

ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Factures 2004.1.1\Factures\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox "Votre facture sera créer dans le répertoire: C:\Program Files\Factures 2004.1.1\Factures\"
YesNo = MsgBox("Voulez-vous faire une autre facture ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
'Effacer
ActiveWorkbook.Close
Sheets("Model").Select
Range("A12:G51,G9,B6,B7,B8").Select
Range("B8").Activate
Selection.ClearContents
Range("A11").Select

For compteur = 1 To 45
UserForm3.Controls("textbox" & compteur).Value = ""
Next compteur
Case vbNo
ActiveWorkbook.Close
Sheets("Model").Select
Range("A12:G51,G9,B6,B7,B8,G7").Select
Range("B8").Activate
Selection.ClearContents
Range("A11").Select
For compteur = 1 To 45
UserForm3.Controls("textbox" & compteur).Value = ""
Next compteur

UserForm3.Hide

End Select
End If

End Sub

Merci de votre aide

Temjeh

A++

 

[Yeahou]

Bonjour Temjeh, le forum

Ajoute aprés Nom_Fichier = Application.InputBox(prompt:="*Entrez le No de la nouvelle facture*")

if nom_fichier="Faux" then exit sub

cela devrait régler ton problème car faux est le retour normal d'un annuler sur inputbox

A+

 

[Temjeh]

Merci beaucoup Yeahou
J'y était presque en regardant le message de Dja64 un peut plus bas

If titre = vbCancel then ??&&!!

Mais là c'est encore mieux

Merci beaucoup ca fonctionne A1

Temjeh

A++