Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment imprimer un fichier excel à heure fixe

8 réponses
Avatar
ELDER
Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier excel à heure
fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci

8 réponses

Avatar
Philippe.R
Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de procédure ; tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment précis (soit à une heure précise soit
après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une procédure à exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple montre comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de news:bjd9gk$3um$
Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier excel à heure
fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci




Avatar
ELDER
Bonsoir merci pour cette réponse aussi rapide. Cependant je suis assez nul
;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple montre
comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une feuille à
imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de news:

Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de procédure ;
tiré de l'aide VBA :

OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment précis
(soit à une heure précise soit

après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter
après un certain délai (à partir

de maintenant). Utilisez TimeValue(time) pour programmer une procédure à
exécuter à un moment précis.


Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple montre
comment annuler le

paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de
news:bjd9gk$3um$

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier excel à
heure


fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci








Avatar
Philippe.R
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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de news:bjdjnm$jh0$
Bonsoir merci pour cette réponse aussi rapide. Cependant je suis assez nul
;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple montre
comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une feuille à
imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de news:

Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de procédure ;
tiré de l'aide VBA :

OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment précis
(soit à une heure précise soit

après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter
après un certain délai (à partir

de maintenant). Utilisez TimeValue(time) pour programmer une procédure à
exécuter à un moment précis.


Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple montre
comment annuler le

paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de
news:bjd9gk$3um$

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier excel à
heure


fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci












Avatar
Philippe.R
Bonjour Liana,
Merci aussi pour les questions !
C'est l'occasion d'avoir : d'une part le plaisir de se dérouiller le neurone, d'autre part le plaisir de
s'entendre dire "chapeau !", ce qui est toujours plus agréable que "béret !"
;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Bulle" a écrit dans le message de
news:bjf42p$lpv$
Il y a vraiment des pros oui !
J'adhère totalement à cette idée et c'est autant utile qu'agréable.
Merci encore pour toutes ces réponses tirées d'un chapeau bien fait :-))
Liana :-)


"ELDER" a écrit dans le message de news:
bjeqjr$g49$
Merci beaucoup, j'ai enfin la solution !!!

Ya vraiment des pros sur le forum !


"Philippe.R" a écrit dans le message de news:

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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjdjnm$jh0$

Bonsoir merci pour cette réponse aussi rapide. Cependant je suis assez
nul


;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montre


comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une
feuille à


imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de news:

Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de
procédure




;
tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment
précis




(soit à une heure précise soit
après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuter



après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une
procédure




à
exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montre



comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de
news:bjd9gk$3um$

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier
excel





à
heure
fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci
























Avatar
Philippe.R
C'était avec plaisir ELDER !
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de news:bjeqjr$g49$
Merci beaucoup, j'ai enfin la solution !!!

Ya vraiment des pros sur le forum !


"Philippe.R" a écrit dans le message de news:

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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjdjnm$jh0$

Bonsoir merci pour cette réponse aussi rapide. Cependant je suis assez
nul


;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montre


comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une
feuille à


imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de news:

Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de procédure
;



tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment précis
(soit à une heure précise soit

après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuter



après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une procédure
à



exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montre



comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de
news:bjd9gk$3um$

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier excel
à




heure
fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci




















Avatar
Bulle
;o)))

"Philippe.R" a écrit dans le message de news:

Bonjour Liana,
Merci aussi pour les questions !
C'est l'occasion d'avoir : d'une part le plaisir de se dérouiller le
neurone, d'autre part le plaisir de

s'entendre dire "chapeau !", ce qui est toujours plus agréable que "béret
!"

;o)))
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Bulle" a écrit dans le message de
news:bjf42p$lpv$
Il y a vraiment des pros oui !
J'adhère totalement à cette idée et c'est autant utile qu'agréable.
Merci encore pour toutes ces réponses tirées d'un chapeau bien fait :-))
Liana :-)


"ELDER" a écrit dans le message de news:
bjeqjr$g49$
Merci beaucoup, j'ai enfin la solution !!!

Ya vraiment des pros sur le forum !


"Philippe.R" a écrit dans le message de news:

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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjdjnm$jh0$

Bonsoir merci pour cette réponse aussi rapide. Cependant je suis
assez





nul
;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet
exemple





montre
comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une
feuille à


imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de
news:






Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de
procédure




;
tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment
précis




(soit à une heure précise soit
après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuter



après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une
procédure




à
exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet
exemple






montre
comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message
de






news:bjd9gk$3um$
Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier
excel





à
heure
fixe ?

Ca parait un peu idiot mais cela me serait très utile !

Merci




























Avatar
Philippe.R
Bonsoir ELDER,
La procédure telle que je te l'ai proposée ne nécessite aucune intervention de l'utilisateur si ce n'est
d'allumer l'ordinateur (et l'imprimante) et d'ouvrir le fichier ; c'est cette ouverture du fichier qui
déclenche la macro de lancement à heure fixe, qui elle même déclenchera l'impression aux heures dites.

Si toutefois tu veux pouvoir le faire par bouton dans ta feuille :

Menu / Affichage / Barre d'outils / Formulaires tu cliques sur le bouton qui y figure et sur la feuille
tu le positionne et le dimensionne à ta guise ; dans la fenêtre qui s'ouvre, tu choisis la macro
LanceImprime13 ; tu change le titre "bouton 1" par 13h00 par exemple puis tu recommence l'opération (en
affectant la macro LanceImprime21 au bouton 2)....

Sub LanceImprime13()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("13:00:00"), "Imprime1", , True
End Sub

Sub LanceImprime21()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("21:00:00"), "Imprime1", , True
End Sub

Sub LanceImprime05()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("05:00:00"), "Imprime1", , True
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de news:bjfo79$k2q$
Je vais encore corsé le truc ( si c'est pas trop compliqué ), peut-on mettre
un bouton sur la feuille en question qui lancerait automatiquement la macro.
Parceque moi je suis pas fortiche, mais ceux qui utilise l'ordinateur en
question ont encore plus de problème que moi !!!

En gros j'aimerais si c'est possible mettre un bouton gris en bas de la page
sur lequel serait noté 13H00. En cliquant dessus la macro se lancerait et
imprimerait le fichier à 13h00. A coté un autre bouton noté 21h00 qui
imprimerait à 21h00 etc...

Est-ce possible ?

Vous me rendriez un grand service !


"Philippe.R" a écrit dans le message de news:
#
C'était avec plaisir ELDER !
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjeqjr$g49$

Merci beaucoup, j'ai enfin la solution !!!

Ya vraiment des pros sur le forum !


"Philippe.R" a écrit dans le message de news:

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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjdjnm$jh0$

Bonsoir merci pour cette réponse aussi rapide. Cependant je suis
assez




nul
;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montre


comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai une
feuille à


imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de
news:





Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de
procédure





;
tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un moment
précis





(soit à une heure précise soit
après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuter après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une
procédure à exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Cet exemple montre comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le message de
news:bjd9gk$3um$

Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un fichier
excel à heure fixe ?
Ca parait un peu idiot mais cela me serait très utile !

Merci















Avatar
ELDER
Merci beaucoup. C'est vraiment top. Je met ça en route cette semaine et je
vous tiens au courant !

Merci


"Philippe.R" a écrit dans le message de news:
#
Bonsoir ELDER,
La procédure telle que je te l'ai proposée ne nécessite aucune
intervention de l'utilisateur si ce n'est

d'allumer l'ordinateur (et l'imprimante) et d'ouvrir le fichier ; c'est
cette ouverture du fichier qui

déclenche la macro de lancement à heure fixe, qui elle même déclenchera
l'impression aux heures dites.


Si toutefois tu veux pouvoir le faire par bouton dans ta feuille :

Menu / Affichage / Barre d'outils / Formulaires tu cliques sur le bouton
qui y figure et sur la feuille

tu le positionne et le dimensionne à ta guise ; dans la fenêtre qui
s'ouvre, tu choisis la macro

LanceImprime13 ; tu change le titre "bouton 1" par 13h00 par exemple puis
tu recommence l'opération (en

affectant la macro LanceImprime21 au bouton 2)....

Sub LanceImprime13()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("13:00:00"), "Imprime1", , True
End Sub

Sub LanceImprime21()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("21:00:00"), "Imprime1", , True
End Sub

Sub LanceImprime05()
'MPFE 07/09/2003
' lance Imprime1 à l'heure voulue
Application.OnTime TimeValue("05:00:00"), "Imprime1", , True
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjfo79$k2q$

Je vais encore corsé le truc ( si c'est pas trop compliqué ), peut-on
mettre


un bouton sur la feuille en question qui lancerait automatiquement la
macro.


Parceque moi je suis pas fortiche, mais ceux qui utilise l'ordinateur en
question ont encore plus de problème que moi !!!

En gros j'aimerais si c'est possible mettre un bouton gris en bas de la
page


sur lequel serait noté 13H00. En cliquant dessus la macro se lancerait
et


imprimerait le fichier à 13h00. A coté un autre bouton noté 21h00 qui
imprimerait à 21h00 etc...

Est-ce possible ?

Vous me rendriez un grand service !


"Philippe.R" a écrit dans le message de news:
#
C'était avec plaisir ELDER !
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjeqjr$g49$

Merci beaucoup, j'ai enfin la solution !!!

Ya vraiment des pros sur le forum !


"Philippe.R" a écrit dans le message de
news:





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


--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"ELDER" a écrit dans le message de
news:bjdjnm$jh0$

Bonsoir merci pour cette réponse aussi rapide. Cependant je suis
assez




nul
;) Pourriez vous m'expliquer ou entrer la formule :

Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet
exemple






montre
comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse


Merci car c'est exactement l'utilitaire que je cherche ( j'ai
une






feuille à
imprimer à 13h00 / 21H00 et 5H00 )

"Philippe.R" a écrit dans le message de
news:





Bonsoir ELDER,
Pour cela, il faut un peu programmer et utiliser ce type de
procédure





;
tiré de l'aide VBA :
OnTime, méthode
Cette méthode programme l'exécution d'une procédure à un
moment







précis
(soit à une heure précise soit
après l'écoulement d'un délai précis).

Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuter après un certain délai (à partir
de maintenant). Utilisez TimeValue(time) pour programmer une
procédure à exécuter à un moment précis.

Cet exemple montre comment exécuter my_Procedure à 17 heures.

Application.OnTime TimeValue("17:00:00"), "my_Procedure"
Cet exemple montre comment annuler le
paramétrage de OnTime de l'exemple précédent.

Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:úlse
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"ELDER" a écrit dans le
message de







news:bjd9gk$3um$
Bonjour à tous,

Je souhaiterais savoir s'il est possible d'imprimer un
fichier








excel à heure fixe ?
Ca parait un peu idiot mais cela me serait très utile !

Merci