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
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
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
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
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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
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 soitaprè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 (à partirde 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 leparamé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 à
heurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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_S_rauphil@wanadoo.fr> a écrit dans le message de news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 soitaprè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 (à partirde 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 leparamé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 à
heurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères un
nouveau module et tu y copiesle 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'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de news:
bjeqjr$g49$1@news.tiscali.fr...
Merci beaucoup, j'ai enfin la solution !!!
Ya vraiment des pros sur le forum !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
evWAUPRdDHA.728@TK2MSFTNGP11.phx.gbl...
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjdjnm$jh0$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères un
nouveau module et tu y copiesle 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'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur entre
les parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères un
nouveau module et tu y copiesle 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'ouverturedu 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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
àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
Merci beaucoup, j'ai enfin la solution !!!
Ya vraiment des pros sur le forum !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
evWAUPRdDHA.728@TK2MSFTNGP11.phx.gbl...
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjdjnm$jh0$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur entre
les parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères un
nouveau module et tu y copiesle 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'ouverturedu 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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
àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu
insères un
nouveau module et tu y copiesle 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'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Bulle" <nospam-Liana@wanadoo.fr> a écrit dans le message de
news:bjf42p$lpv$1@news-reader3.wanadoo.fr...
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de news:
bjeqjr$g49$1@news.tiscali.fr...
Merci beaucoup, j'ai enfin la solution !!!
Ya vraiment des pros sur le forum !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
evWAUPRdDHA.728@TK2MSFTNGP11.phx.gbl...
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjdjnm$jh0$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message
de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu
insères un
nouveau module et tu y copiesle 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'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
montrecomment 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 soitaprès l'écoulement d'un délai précis).
Utilisez Now + TimeValue(time) pour programmer une procédure à
exécuteraprès un certain délai (à partirde 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
montrecomment annuler leparamé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àheurefixe ?
Ca parait un peu idiot mais cela me serait très utile !
Merci
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères
unnouveau module et tu y copiesle 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
automatiquementla 1ère procédure à l'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
asseznul;) Pourriez vous m'expliquer ou entrer la formule :
Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montrecomment 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 soitaprè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
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_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#BJcq9TdDHA.736@TK2MSFTNGP09.phx.gbl...
C'était avec plaisir ELDER !
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjeqjr$g49$1@news.tiscali.fr...
Merci beaucoup, j'ai enfin la solution !!!
Ya vraiment des pros sur le forum !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
evWAUPRdDHA.728@TK2MSFTNGP11.phx.gbl...
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjdjnm$jh0$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu insères
unnouveau module et tu y copiesle 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
automatiquementla 1ère procédure à l'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
asseznul;) Pourriez vous m'expliquer ou entrer la formule :
Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet exemple
montrecomment 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 soitaprè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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton
claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu
insères
unnouveau module et tu y copiesle 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
automatiquementla 1ère procédure à l'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
asseznul;) Pourriez vous m'expliquer ou entrer la formule :
Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet
exemple
montrecomment 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 soitaprè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
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjfo79$k2q$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#BJcq9TdDHA.736@TK2MSFTNGP09.phx.gbl...
C'était avec plaisir ELDER !
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjeqjr$g49$1@news.tiscali.fr...
Merci beaucoup, j'ai enfin la solution !!!
Ya vraiment des pros sur le forum !
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:
evWAUPRdDHA.728@TK2MSFTNGP11.phx.gbl...
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
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"ELDER" <lesinfosnospam@enleverfree.fr> a écrit dans le message de
news:bjdjnm$jh0$1@news.tiscali.fr...
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_S_rauphil@wanadoo.fr> a écrit dans le message de
news:
eUkBXgLdDHA.2564@TK2MSFTNGP09.phx.gbl...
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
A_S_rauphil@wanadoo.fr
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" <lesinfosnospam@enleverfree.fr> a écrit dans le
message de
news:bjd9gk$3um$1@news.tiscali.fr...
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
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 leclasseur 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 lafenêtre située en haut à gauche, tu y repères le nom de ton
claseur
entreles parenthèses d'unVBAProject() et tu cliques dessus ; par le menu Insertion, tu
insères
unnouveau module et tu y copiesle 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
automatiquementla 1ère procédure à l'ouverturedu classeur en copiant le code qui suit (de Private à Sub) dans le
moduleThisWorkbook 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
asseznul;) Pourriez vous m'expliquer ou entrer la formule :
Application.OnTime TimeValue("17:00:00"), "my_Procedure"Cet
exemple
montrecomment 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 soitaprè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