Gix
XLDnaute Occasionnel
Bonjour le Forum,
Je souhaiterai modifier le code afin de pouvoir saisir la valeur zéro ( ne pas imprimer la feuille facture ) tout en continuant l'exécution de ma commande.
Est-ce possible? Si oui pouvez-vous me venir en aide .
Vous remerciant tous par avance.
Bonne journée, Gix.
[Sub DocuementValider()
Dim vNbreImp As Variant
Dim DocFch As Variant
Dim DocChm As Variant
DocFch = Range('DocFch')
DocChm = Range('DocChm')
If Range('DocNumDoc') = '' Then
informer = MsgBox('Numero Facture obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('DocNumDoc').Select
Exit Sub
End If
If Range('RvNomClient') = '' Then
informer = MsgBox('Nom du Client obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('RvNomClient').Select
Exit Sub
End If
vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
If vNbreImp <= 0 Then GoTo 5
If IsNumeric(vNbreImp) Then
GoTo 10
Else: Do Until IsNumeric(vNbreImp)
5
MsgBox 'La valeur doit être un nombre entier et > 0'
vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
Loop
GoTo 10
End If
10
Sheets('Facture').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=vNbreImp
If Range('DossierOptCopieDoc') = 'Non' Then GoTo 20
If Range('DossierOptCopieDoc') = 'Oui' Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=DocChm, _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows('FactureGix.xls').Activate
Sheets('Facture').Select
Cells.Select
Selection.Copy
Windows(DocFch).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range('a1').Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
20
Windows('FactureGix.xls').Activate
Sheets('Document').Unprotect Password:='gix'
Range('DossierNumDoc') = Range('DossierNumDoc') + 1
Sheets('Document').Select
Range('DocNumDoc') = Range('DossierNumDoc')
Range('RefDocSaisie').Select
Selection.ClearContents
Range('b13').Select
Sheets('Document').Protect Password:='gix'
ActiveWorkbook.Save
End Sub]
Je souhaiterai modifier le code afin de pouvoir saisir la valeur zéro ( ne pas imprimer la feuille facture ) tout en continuant l'exécution de ma commande.
Est-ce possible? Si oui pouvez-vous me venir en aide .
Vous remerciant tous par avance.
Bonne journée, Gix.
[Sub DocuementValider()
Dim vNbreImp As Variant
Dim DocFch As Variant
Dim DocChm As Variant
DocFch = Range('DocFch')
DocChm = Range('DocChm')
If Range('DocNumDoc') = '' Then
informer = MsgBox('Numero Facture obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('DocNumDoc').Select
Exit Sub
End If
If Range('RvNomClient') = '' Then
informer = MsgBox('Nom du Client obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('RvNomClient').Select
Exit Sub
End If
vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
If vNbreImp <= 0 Then GoTo 5
If IsNumeric(vNbreImp) Then
GoTo 10
Else: Do Until IsNumeric(vNbreImp)
5
MsgBox 'La valeur doit être un nombre entier et > 0'
vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
Loop
GoTo 10
End If
10
Sheets('Facture').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=vNbreImp
If Range('DossierOptCopieDoc') = 'Non' Then GoTo 20
If Range('DossierOptCopieDoc') = 'Oui' Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=DocChm, _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows('FactureGix.xls').Activate
Sheets('Facture').Select
Cells.Select
Selection.Copy
Windows(DocFch).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range('a1').Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
20
Windows('FactureGix.xls').Activate
Sheets('Document').Unprotect Password:='gix'
Range('DossierNumDoc') = Range('DossierNumDoc') + 1
Sheets('Document').Select
Range('DocNumDoc') = Range('DossierNumDoc')
Range('RefDocSaisie').Select
Selection.ClearContents
Range('b13').Select
Sheets('Document').Protect Password:='gix'
ActiveWorkbook.Save
End Sub]