Bonjour,
Je vous presente une tite macro de ma conception qui lance des copies sans filigrane et avec selon des parametres variables definis par des msgbox.
Ca marche plûtot bien (mais si vous voyez des amélioratons n'hésitez pas) , mais voila probleme lorsque je ne veux pas de copie sans filigrane , je met 0 pour cette msgbox mais il met une erreur.
Il ne reconnait pas le parametre 0 comme valable.
J'aimerais qu'il l'accepte car on peut avoir besoin d'une copie avec et pas d'une copie sans filigranne et ainsi que l'inverse.
Auriez-vous une idée ?
Dans tous les cas je vous remercie de votre aide
Je vous presente une tite macro de ma conception qui lance des copies sans filigrane et avec selon des parametres variables definis par des msgbox.
Sub Imprimeavecfiligrammeoriginal()
' fait pour imprimer des factures sans filigrane original et avec filigrane orignial
c = InputBox("Combien de copie sans filigrane voulez-vous?", "Question")
o = InputBox("Combien de copie avec filigrane ''ORIGINAL'' voulez-vous?", "Question")
Dim i As Byte, x As Byte
x = Sheets.Count
For i = 1 To x
Sheets(i).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut Copies:=c
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "ORIGINAL", "ARIAL", _
72#, msoFalse, msoFalse, 200, 100#).Select
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -0
.ShapeRange.IncrementLeft -30
.ShapeRange.IncrementTop 350
ActiveWindow.SelectedSheets.PrintOut Copies:=o, Collate:=True
End With
Next
ThisWorkbook.Saved = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Ca marche plûtot bien (mais si vous voyez des amélioratons n'hésitez pas) , mais voila probleme lorsque je ne veux pas de copie sans filigrane , je met 0 pour cette msgbox mais il met une erreur.
Il ne reconnait pas le parametre 0 comme valable.
J'aimerais qu'il l'accepte car on peut avoir besoin d'une copie avec et pas d'une copie sans filigranne et ainsi que l'inverse.
Auriez-vous une idée ?
Dans tous les cas je vous remercie de votre aide