impression heure donné

baz · 4 Juin 2003

Slt

Y a t'il possibilité par rapport a la macro ci dessous d'avoir une fenetre demandant l'heure car dans ce cas precis il faut précisez l'heure dans la macro directement.

Sub ProgrammeLaMacroTime()
Application.OnTime TimeValue("15:00:00"), "MacroImpression", , True
End Sub

Sub MacroImpression()
'cette macro imprime la feuille Feuil1
ThisWorkbook.Sheets("Feuil1").PrintOut
End Sub

Merci d'avance.

Alain · 4 Juin 2003

Bonsoir,

Ci-dessous petit complément à ta macro :

Public HeureImpression As String
Sub Heure_Impression()
HeureImpression = InputBox("A quelle heure voulez-vous imprimer ?")
If HeureImpression = "" Then Exit Sub
ProgrammeLaMacroTime
End Sub
Sub ProgrammeLaMacroTime()
Application.OnTime TimeValue(HeureImpression), "MacroImpression", , True
End Sub

Sub MacroImpression()
'cette macro imprime la feuille Feuil1
ThisWorkbook.Sheets("Feuil1").PrintPreview
End Sub

@+

Alain · 4 Juin 2003

Rebonsoir,

J'ai mis "PrintPreview" au lieu de "PrintOut", c'était juste pour essayer.

@+

baz · 6 Juin 2003

Merci bcp alain pour ton aide, malheursement cette macro ne fonctionne pas sur l'office 97, je la retesterai lorsque on m'aura installé l'office xp soit dans 3 semaines.

En tout cas Merci

impression heure donné

baz

Guest

Alain

Guest

Alain

Guest

baz

Guest

Discussions similaires