impression heure donné

[baz]

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]

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]

Rebonsoir,


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


@+

 

[baz]

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