InputBox True ou False

[Temjeh]

Bonjour a tout les excelleurs!!!

J'ai ce code je voudrais si possible inserer un message box qui me dit de entrer au moins un nom si InputBox est vide:

Private Sub CommandButton1_Click()

Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
Sheets("Model").Copy

Application.Visible = True
Sheets("Model").Visible = True

ActiveWorkbook.SaveAs Filename:= _
"K:\Factures 2004\Programme\Factures\" & Nom_Fichier & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

MsgBox "Votre facture sera créer dans le répertoire: K:\Factures 2004\Programme\Factures\"
YesNo = MsgBox("Voulez-vous éditer le nouveau ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
TextBox1 = ""
MsgBox "Passer maintenant en mode Excel"

UserForm2.Hide
UserForm1.Hide
Case vbNo
MsgBox "*Créer maintenant un autre*"
End Select

End Sub

Merci de bien vouloir m'aide

tres reconaissant

Temjeh

 

[Temjeh]

J'ai essayé avec ceci:

If InputBox <> "" Then

Else
MsgBox "Entrer au moins un nom !!!"

End If

Mais ptetre que je sais pas ou mettre cela

Merci

 

[Pascal76]

Salut

essaies peut-être

Private Sub CommandButton1_Click()

Dim Nom_Fichier
Debut:
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
If Nom_Fichier="" then
Msgbox "Entrer un nom"
Goto Debut

Pascal

 

[Pascal76]

oups

J'ai oublié le end if

Pascal

 

[Benoit]

Allo Temjeh

Essaie :

If InputBox.Value = ""
Else
MsgBox "Vous devez ...!", vbOKOnly + vbInformation
End If


If InputBox.Value <> ""
Else
MsgBox "Vous devez ...!", vbOKOnly + vbInformation
End If

Benoit

 

[Temjeh]

Un gros merci Pascal puis Benoit

J'ai celle de Pascal en premier qui enpèche le bug et c'est parfait

Wow!ca marche tres bien

Merci à vous deux j'essaie l'autre ce soir

temjeh

 

[Temjeh]

Ouff j'ai travaillé fort Pascal

On avait pas mis le Else...m'a fenetre ce fermais même avec un nom dans InputBox

Merci

TemJeh

 

[Pascal76]

Bonjour

En fait tu n'as pas besoin du else

J'avais refait un post pour dire que j'avais oublié le end if et en fait il suffit pour eviter ton problème. Mais c'est vrai que je n'ai pas été assez explicite.

Regardes le code sans le Else :

Private Sub CommandButton1_Click()

Dim Nom_Fichier as string
Debut:
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")
If Nom_Fichier="" then
Msgbox "Entrer un nom"
Goto Debut
end if
LA suite de ton code ici

Bon courage

Pascal