Lancer Impression à heure fixe

Bonjour,
Dans l'aide de VBA voir le mot réservé OnTime


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/

"JMG" <nospam-bipolaris@lexpress.net> a écrit dans le message de news:
%23M1%234FW%23EHA.3988@TK2MSFTNGP11.phx.gbl...

Bonjour

Comment mprimer à heure fixe quotidiennement par vba?

Merci

Bonsoir,
Voici copie d'une réponse donnée il y a déjà un certain temps à une question similaire :
"=========================================================================="
Bonjour ELDER,
Voici, issu d'une réponse de Thomas Corvaisier trouvée à cette adresse, une piste qui suppose que le
classeur soit ouvert :

http://www.excelabo.net/xl/imprimer.htm#imprimheurefixe

Dans ton classeur, ouvre l'éditeur Visual Basic en utilisant la combinaison de touches Alt+F11 ; dans la
fenêtre située en haut à gauche, tu y repères le nom de ton claseur entre les parenthèses d'un
VBAProject() et tu cliques dessus ; par le menu Insertion, tu insères un nouveau module et tu y copies
le code suivant, de 'Début copie à 'Fin copie :

'Début copie
Sub LanceImprime()
'MPFE 07/09/2003
' lance Imprime1 à trois reprises, aux heures voulues
Application.OnTime TimeValue("13:00:00"), "Imprime1", , True
Application.OnTime TimeValue("21:00:00"), "Imprime1", , True
Application.OnTime TimeValue("05:00:00"), "Imprime1", , True
End Sub

Sub Imprime1()
'MPFE 07/09/2003
' imprime la feuille 1 de ce classeur
ThisWorkbook.Sheets("Feuil1").PrintOut
End Sub

'Si tu préfères imprimer la feuille active à l'instant du déclenchement,
' tu remplaces 1 par 2 dans Imprime de la 1ère procédure

Sub Imprime2()
'MPFE 07/09/2003
' imprime la feuille active quelqu'elle soit
ActiveSheet.PrintOut
End Sub
'Fin copie

Pour lancer le processus, il te suffit de faire executer automatiquement la 1ère procédure à l'ouverture
du classeur en copiant le code qui suit (de Private à Sub) dans le module ThisWorkbook du même classeur
(double clic dessus pour l'ouvrir)

Private Sub Workbook_Open()
'MPFE 07/09/2003
'déclenche la procédure de lancement
'automatique des impressions
LanceImprime
End Sub
"=========================================================================="
De quoi servir de base peut être.
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"JMG" <nospam-bipolaris@lexpress.net> a écrit dans le message de news:
%23M1%234FW%23EHA.3988@TK2MSFTNGP11.phx.gbl...

Bonjour

Comment mprimer à heure fixe quotidiennement par vba?

Merci