Mon fichier est trop volumineux
Je te montre le code
Je veux vider après le Yes!!!!!!!!!!!!!!!!!!!!!!!!!
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").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
'vider TextBox ici!!!!!!!!!!!!!!!!!!!!!!!!ici
Case vbNo
ActiveWorkbook.Close
UserForm3.Hide
End Select
End If
End Sub
Merci de ton temps