T
Temjeh
Guest
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
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