Amélioration d'une Macro
Bonjour à tous ceux qui prennent sur leurs temps pour nous aider,bonjour le Forum
J'ai réaliser une macro pour une impression de ticket, et j'aurais 3 questions:
1) peut-on optimiser ce code?
2) lors du lancement on apperçoit le déroulement de la macro à l'écran trés rapide certe, avait vous une solution ?.
3) pensez-vous que j'ai la bonne solution de création de ticket ?.
Merci pour l'intérer que vous porterez à mes questions
Bien à vous
Gérard
-- 27 Avr 2010, 06:53 --
Re
j'ai oublié le principal....
Sub Ticket001()
'
' Ticket001 Macro
Macro enregistrée le 27/04/2010 par GLT
Sheets("Ticket 30 mm").Select
Range("A1:B11").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$11"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=2, Collate _
:=True
Sheets("30 MM").Select
Range("Q10").Select
ActiveCell.FormulaR1C1 = "0"
Range("R10").Select
ActiveCell.FormulaR1C1 = "0"
Range("c11").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Acceuil.xls").Activate
Range("B15").Select
End Sub
Bonjour,
Si j'ai bien saisis ce que tu veux faire... essaie ceci
Sub Ticket001()
With Sheets("Ticket 30 mm")
.Select
.PageSetup.PrintArea = "$A$1:$B$11"
.PrintOut From:=1, To:=1, Copies:=2, Collate:=True
End With
Sheets("30 MM").Range("Q10") = "0"
ActiveWorkbook.Close SaveChanges:=True
End SubAmicalement
Re,
Merci Dan cela fonctionne, mais je vois la macro se dérouler y a t-il ne solution?
il me semble que Nad il y a longtemps m'avait montrer quelque chose mais impossible de retrouver
Amicalement
Gérard
Bonjour à tous, Forum,
Essaye de placer ce bout de code en début :
Application.ScreenUpdating = FalseA te relire.
re
Fabrice69 et Dan
Merci à vous pour vos réponses je mets en test et vous dit si cela fonctionne sur mon fichier
Amicalement
Gérard
-- 27 Avr 2010, 14:23 --
Dan et Fabrice69
Merci super pour les 2 codes, mon autre question comment je peut déterminer le choix de l'imprimante dans la macro, j'ai une imprimante dédié pour les tickets.
Amicalement
Gérard