Amélioration d'une Macro

[paludot]

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

[Dan]

Bonjour,

Si j'ai bien saisis ce que tu veux faire... essaie ceci

Code: Tout sélectionner

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 Sub

Amicalement

[paludot]

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

[Fabrice69]

Bonjour à tous, Forum,

Essaye de placer ce bout de code en début :

Code: Tout sélectionner

Application.ScreenUpdating = False

A te relire.

[paludot]

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